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Happy New Year from all of us 
at CoCo Clipboard! For some of you 
this is your very first Clipboard 
and for others your second or 
third. For us it is a first of 
sorts. Through the hard work and 
kindness of Mr. Tom Hauptly at 
Marty's Rubber Stamp in St. Clair 
PA. , Clipboard is now printed on a 
web press instead of a sheet fed 
press. The advantages are in cost 
and speed. The disadvantage is that 
we've had to drop the heavier and 
whiter 60 pound book paper we used 
in issues 1 and 2. Our primary con- 
cern in this was postage costs vs. 
page count. The 60 pound book paper 
gets heavy very quickly and after 
32 pages the cost to mail your copy 
starts getting high. In 9rder to 
increase the page count and not the 
mail cost we have gone with what 
you have now. We hope the messages 
(articles, programs etc. ) and not 
the medium is what you like. 

Speaking of mailing - growel, 
complain etc. You've noticed that 
we mail Clipboard via a third class 
permit from here in Fredonia. When 
we began to talk with the people at 
the Post Office the message we got 
was that 3rd class took about a 
week to go across the country. As 
many of you already know it takes 
longer than 7 days in some cases. 
Part of this is due to the sortings 
we have to do here. At this point 
in time the number of copies we 
distribute is spread pretty thin 
over the U.S., Canada and Pureto 
Rico. Therefore we can't give the 
Post Office nice tidy bundles for 
zip codes. Rather we sort and mail 
primarily by state. I am sure this 
holds things up. The remedy is 
simple, we need more subscriptions 
from YOUR zip code area! Tell 
your CoCo computing friends about 
Clipboard and have them subscribe. ! 
Also we will change one statement 
we make about the in home date for 
Clipboard however. Try as we might 
the magazines are riot getting to 
you good folk the first week of the 
publication month. We've had 
delays, the Post Office has delays, 
the printer ... well you don't want 
to hear it all anyways, but suffice 
to say we will be in your mailbox 
A. S.A.P. every other month, hope- 
fully no later than the 15th. 

A very special THANK YOU to 
D.K. Lee of the Island CoCo Club. 
D.K. not only has helped support us 



in the New York City and Long 
Island area but also showed up at 
the annual gathering of CoCo souls 
in Princeton New Jersey back in 
October. He thought Clipboard was 
going to have a booth at the show 
and had printed up 500 slingers for 
us to hand out. We didn't have a 
booth, but did manage to meet many 
of you in the lobby, the parking 
lot, at Denny's on Rt. 1 and at the 
Red Roof Inn, it was great! I enjoy 
the drive from here in upstate New 
York down to Princeton and look 
forward to it next year. We also 
got to meet Paul Bornemann and his 
wife Kathy, and one of our writers, 
Jim DeStefano. We bought our CoCo 3 
at the show, met Art Flexser, Bob 
Rosen, Dr. Lar^ry Preble and lots of 
other folks. The only complaint 
that I have is that no one sponsors 
a show in or NEAR all those super 
CoCo users in Canada. Just for the 
heck of it. how many of our readers 
would be interested in a CoCo show, 
in the summer, in Niagara Falls, 
N.Y.? Yes a show in the Falls, with 
the roar of the Niagara, the 
history, the malls, the place where 
you can take the better half, the 
kids and let them have a good time 
and enjoy the vendors, conferences 
etc. associated with CoCo. For our 
Canadian neighbors home turf would 
be just over the "Rainbow" Bridge. 
Let me know what you think. 



Confidential to our adver- 
■ tisers, and potential advertisers. 
Ad rates for Clipboard can be sewn 
up for an entire year, at this 
years rates, right now. Our mailing 
list is approaching 20,000 and we 
mail out almost 85% of what we 
print each issue. With our cir- 
culation increasing to a minimum of 
1000 copies per issue your goods 
and services will have more 
exposure for less money than 
ANYWHERE else. When you count the 
cost of advertising be sure to note 
how many copies are sold or 
distributed and not returned. You 
might be surprised that some num- 
bers you've been quoted aren't 
exactley what is going out and 
staying out. Our readership and 
rackseller loyalty is excellent. We 
are the only magazine to offer 
coupons to your customers where you 
can build customer loyalty and 
satisfaction and they don't cost 
you a cent. For a copy of our rate 



card, coupon details and how we can 
make your bottom line grow, drop us 
a line here in the office. 



And as for this issue we are 
announcing a contest. In con- 
junction with Bill Bernicos contest 
which was scheduled for the old 
Spectrogram (but is appearing in 
this issue of Clipboard) we are 
sponsoring a programming contest. 
The details are on page 26. Prizes 
have been donated by Tandy, 
Spectrum Projects, The Dunkirk Free 
Library, Bill Bernico and naturally 
by CoCo Clipboard. Be sure to see 
Bills' article. 

Also of interest is Randy 
Krippners PowerGraph program, Rush 
Caley's database tutorial, Ken 
Barber s Genealogy offering and the 
rest of our writers usually great 
efforts. We know you'll enjoy them 
all. 

Again our thanks for all of 
your support. Like any other 
magazine we depend on subscriptions 
(so pass the word) and advertising. 
Use your Clipboard coupons. If you 
buy something from an advertiser 
who doesn't use a coupon tell them 
you bought it - cause you saw it - 
in CoCo Clipboard! 

And finally... A few 
announcements we are very proud to 
make. First - Rush Caley a long 
time CoCo supporter, vendor and 
author has recently accepted a 
position as a Systems Analyst with 
Boeing Aircraft in Seattle. So 
besides helping the folks at Boeing 
understand and use their computers 
better, he will continue providing 
excellent business oriented soft- 
ware to the the CoCo community and 
writing excellent no nonesense 
articles for Clipboard. 

Second - Our machine language 
writer Kraig Brockschmidt has 
accepted a six month internship at 
MICROSOFT. That's right the people 
who have brought you Color Basic, 
Extended Basic, MS-DOS, and lots of 
other BASICS think enough of our 
Mr. Brockschmidt to let him earn 
and learn during his college years. 

So much for the paid commerical 
announcements. We now return you to 
your magazine! 
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VIP Writer III 

WORD PROCESSOR • SPELLING CHECKER • PRINT SPOOLER 

" J^early every feature and option possible to implement on the Color Computer The design of the program 
is excellent: the programming is flawless." -The RAINBOW OCTOBER 1983 
That's what they said about VIP Writer. Wait until they review ViP Writer III! We ve added even 
more features and options to make the VIP Writer III the BEST word processor for the CoCo 3! 



SCREEN DISPLAY OPTIONS 

VIP Writer III has a screen of 32, 40, 64 or 80 characters wide by 24 lines 
using the CoCo S's hardware display wfth actual lower case letters. You 
can choose foreground and background colors from up to 64 different hues. 
Cofor can be turned ON or OFF for the best posstole display using a cotor 
or monochrome monitor or TV set. VIP Wrfter III has a built in on-line 
context sensitive help lacifity which displays command usage in easy to 
read colored windows. VIP Writer III also runs at double dock speed! 

TEXT FILE STORAGE 

There is a 48K text bu«er and disk or cassette file linking allowing virtually 
unlimited text space. In addrtion, there is a 48K print spooler to allow you 
to print one document while editing another. 

EDITING FEATURES 

VIP Writer III has a full featured screen editor which can be used to edit 
text with lines up to 240 characters long with or without automatic word 
wrap around. You can select type-over mode or insert mode. There is 
even an OOPS command to recall a cleared text buffer. Other editing 
features include: Type-ahead, typamatic key repeat and key beep for 
flawless text entry, end of line bell, full four way cursor control with 
scrolling, top of textfile. bottom of textfile. page up. page down, top of 
screen, bottom of screen, beginning of line, end of line, left one word, right 
one word, OaETE character, to beginning or end of line, word to the left 
or right, or entire line. INSERT character or line. LOCATE and/or 
CHANGE or DELETE single or multiple occurrence using wildcards. 
BLOCK copy, move or delete with up to TEN simultaneous block 
manipulations. TAB key and programmable tab stops, three 
PR0GRAh4fylABLE FUNCTIONS to perfom tasks such as auto column 
aeatfon and disk file finking for continuous printing. 

TEXT FORMATTING 

VIP Writer 111 automaticaBy formats your text tor you or allows you to 
format your text in any way you wish. You can change the top, bottom, 
left or right margin and page length. You can set your text flush left, 
center or flush right. You can turn right hand justification on or off. You 
can have headers, footers page numbers and TWO auxiliary lines which 
can appear on odd. even or all pages. You can also select the line on which 
they appear! You can even change the line spacing! All of these formal 
parameters can be altered ANYWHERE within your text file. 

TEXT FILE COMPATIBILITY 

VIP Writer III creates ASCII text files which are compatible whh all other 
VIP Programs as well as other programs which use ASCII file format. You 
can use VIP Writer 111 to create BASIC, assembly, PASCAL or C files. 
VIP Writer 111 also allows you to save and foad files using DISK or 
CASSETTE in the case of an emergency. You can even read disk 
directories, display free space on a disk and kill disk files. 

P.O Box 1233. Gresham, OR. 97030 
Ph. (503) 663-2865 



PREVIEW PRINT WINDOW 

The VIP Writer 111 features an EXCLUSIVE format window which allows 
you to preview your document BEFORE SENDING IT TO YOUR 
PRINTER! You are able to see margins, page breaks, orphan lines etc. 
This feature makes hyphenation a snap! 

PRINTING 

VIP Writer 111 supports most any printer serial or parallel using the parallel 
Interface described in Nov-Dec. '87 RAINBOW magazine, or an external 
serial to parallel interface, and gives you the ability to select baud rates 
from 110 to 9600. You are able to imbed printer control codes anywhere m 
your text file EVEN WITHIN JUSTIFIED TEXT! VIP Writer 111 also has 
twenty PROGRAMMABLE PRINTER SEQUENCES which allow you to 
easily control all of your printers capabilities such as underime. bold, italics, 
superscript and subscript using simple keystrokes. Additional printer 
features include: single sheet pause, print pause, word length and line feed 
selection. 

PRINT SPOOLING 

VIP Writer 111 incoiporates a built in print spooler which alfows you to print 
one document WHILE you are editing another. You no longer have to wait 
until your printer is done printing before starting another job! 

DOCUMENTATION 

VIP Writer 111 is suppfied with a 125 page instruction manual which includes a 
tutorial, gfossary of terms and a complete index. The manual is well 
written and includes many examples to aid m understanding and applicalfon. 

SPELLING CHECKER 

VIP Writer 111 includes VIP Speller for NO ADDITIONAL COST! VIP 
Speller automatically checks text files for words to be corrected, mari^ed 
for special attention or even added to the dictfonary. You can even view 
the misspelled word in context! VIP Speller comes with a specially edited 
50,000 word dfotionary, and words can be added to or deleted from the 
didfonary or you can create one of your own. 

THE ORIGINAL VIP WRITER 

VIP Writer is also available for CoCo 1 and 2 owners and has all the 
features found in the VIP Writer 111 including VIP Speller except for the 
following: The screen display is 32, 51 . 64 or 85 columns by 21 or 24 rows. 
Colors other than green, black or white are not supported. Help is- not 
presented in cofored windows. Double cfock speed is not supported. Parallel 
printer interface is not supported. Printer spooler is not available. Even so. 
the VIP Writer is a CoCo 1 or 2 owners best choice in word processors. 

VIP Writer III Disk $79.95 
VIP Writer Disk $69.95 

VIP Speller Disk $34.95 

Please add $3.00 for shipping and handling. COD orders add an 
additional $2.00. Personal checks allow 3 weeks for delivery. All 
orders shipped the same day. 



Basic 09 Menu Maker 



Bob van der Poel 



As promised last issue, we're 
back with more BASIC09 goodies. 
This month we'll present a niffty 
little routine which prints menus. 
And if you examine the code you'll 
find ways to use OS-9 system calls 
to get valuable information about 
all kinds of things. But first, 
let's discuss how to use the 
program. 

Just about any program I've 
ever written has at least one menu 
in it. And I usually find that I 
spend as much time designing nice 
menu layouts as I do coding the 
rest of the program. Clearly, this 
is NOT PRODUCTIVE. The solution 
lies in having a canned menu sub- 
routine which can be used by many 
different programs. In BASIC09 this 
subroutine becomes a procedure 
which is called by a RUN statement. 
A typical call might be: 

Title=**Sample Menu" 

Items="Quit program\List 
records\Add record\Sort names" 

Keys="QLAS** 

RUN Menu (Choice, Title, Items, 
Keys) 

In this example "Choice" is a 
BYTE variable which contains the 
choice selected from the permitted 
options. In this case it will be 
equal to a value from 1 to 4. The 
string variable "Title" contains 
the text which is placed at the top 
of the menu. "Items" are the 
different choices which will be 
listed — note that each item is 
separated from its brother by a 
"\". "Keys" is a validity string 
which contains the first letter of 
each item. Any keys pressed in MENU 
which are not in "Keys" will be 
ignored. 

NOTE: You could also call Menu 
with constants as in the following 
example: 

RUN Menu (Choice, "Sample Menu 
II", "1. Make coffee\2. Order 
software\3. Play games\4. Say hello 
to family, "1234") 

When Menu is called it will 
have to sort out the different menu 
items for the list, and display 
them in an overlay window centered 
on the current screen. Then it, will 
display a highlight bar which can 
be moved by the mouse or joystick. 



The menu choice is selected by 
pressing the mouse button when the 
highlight bar is positioned over 
the selection or by pressing the 
key corresponding to the user's 
choice. The choice is returned to 
the calling program after the 
window is removed from the screen. 

You might be interested in the 
fact that the above list of pa- 
rameters and specifications was 
developed before Menu was 
written. 

So now we know what we want our 
program to do, let's have a look at 
the program listing. 

The first thing Menu does is a 
GOSUB 120. This subroutine does a 
system call and finds the current 
echo setting (on or off). In order 
to keep our displays neat we must 
set the terminal echo to off. This 
could have been done with a 
"SYSCALL (tmode -echo)," but we 
want to restore everything the w«o^ 
we found it when Menu is done. The 
subroutine first gets the current 
echo setting and saves in in the 
variable ECHO. Then the echo value 
is turned off. When we leave Menu 
we'll call this routine again and 
restore the echo to the value now 
in ECHO. 

The next loop parses the list 
of items to print. The length and 
starting position of each item is 
found and saved. At the same time 
we find the length of the longest 
item. 

Before we can create a window 
for the menu we need to know a 
couple of other things: the current 
colors being used by the display 
and size of the screen we're 
working in. We use OS-9 system 
calls to get this information. 

Now for some BASIC09 trickery. 
A loop reads 24 values from DATA 
statements and creates an overlay 
window. The magic is in the DATA 
statements: BASIC09 is the only 
language I know of which permits 
variables and expressions in DATA 
statements — a very powerful 
option. The first set of DATA 
contains the values needed to 
create an overlay window. Note the 
use of the variables here: 



SWidth-MaxLeng/2 = the x-start 
position of the window, 

SHeight-(NItems+4)/2 = the y-start 
position of the window, 

MaxLeng+2 = the horizontal width 
of the window, 

NItems+4 = the vertical height of 
the window, 

Bcolor = the current background 
color, 

Fcolor = the current foreground 
color. 

The next set of values change 
the working area to achive a one 
character border in the window. 
Next the background and foreground 
colors are set to opposite values 
used to create the window, the 
window is cleared to the new color 
and the cursor is turned off. 

After displaying the title and 
the different choices we now have 
to wait for a selection to be made. 
Again we make generous use of OS-9 
system calls via the SYSCALL pro- 
cedure which comes with Level II 
BASIC09. The first SYSCALL gets the 
vertical coordinate of the joystick 
and the button status. If the 
vertical has changed since the last 
loop a GOSUB 110/100 redisplays a 
highlight bar over the current 
selection. 

Next the keyboard is scanned 
for a keypress. We could have used 
INKEYO to get the same result, but 
we thought it would be nice to have 
the entire Menu routine as a 
self-contained procedure. Besides, 
we were having so much fun using 
SYSCALL we just couldn't help 
ourselves! 




Database Tutorial 




PART I: THE NATURE OF THE BEAST 

DBMS is not another 4 letter 
disease to strike fear amidst the 
populace! Betf inning with this issue 
of "CoCo Clipboard", I will be 
writintf an on-going series of 
articles dealing with perhaps the 
most misunderstood program genre 
available to Color Computer users. 
Database Management, or DBMS pro- 
grams are not only intellectually 
misunderstood by some in the tech- 
nical aspects of their use, but 
also "emotionally" misunderstood in 
relation to their "personality". 
Programs do have personalities, I'm 
told. You know- "friendly"; "un- 
forgiving"; "hostile"; - and other 
such anthropomorphic attributes. 

Unfortunately, Database Man- 
agement programs usually strike 
cords of frustration or even fear 
in many everyday computer users. 
The CoCo world is not exempt. I 
know scores of people who will 
muddle through- handling infor- 
mation in a jerrybuilt fashion - 
rather than take on a relational 
database program. It will be the 
purpose of my series of articles to 
shed some -light on the subject, and 
show how useful and powerful a 
relational database program can be. 
Hopefully, some of the myth and 
mystery surrounding the subject 
will be cleared up, and those who 
have avoided these types of pro- 
grams will take advantage of their 
power and versatility. 

I will try, within the 
confines of the topic, to avoid 
being overly technical. For this . 
series will be completely USER 
ORIENTED, i.e. written by a USER 
for USERS. We'll begin by exploring 
the nature of relational database. 
Through definitions, we will 
examine what it IS, what it IS 
NOT, and learn some vocabulary 
necessary to continue. I will 
explore the manner in which one 
prepares to set up a database, how 
it is actually done, and how in- 
formation is manipulated. From the 
beginning concepts, to actual 
database design, to data entry, 
calculation and report procedures, 
I will attempt to provide a 
tutorial that can serve you in 
expanding your horizons to more 
sophisticated use for the CoCo. 

6 



Finally, I want to emphasize 
that the applications to be 
described in this series will be 
directed to any CoCo owner who has 
64K and 1 disk drive (2 drives 
definitely recommended). I will be 
talking straight RS DOS in a floppy 
disk environment. While all of this 
is certainly applicable to those 
with more memory, alternate DOS's, 
RAM disks, hard disks, and OS-9, it 
is my intention to provide 
information to the mainstream of 
CoCo users. Concepts such as LAN'S, 
Network File Servers, and Dis- 
tributive Processing will not be 
examined here. Those with more 
frills can certainly adapt and 
expand these basic concepts to fit 
their situation; but it's the 
everyday guy with the average CoCo 
setup and some serious work to 
accomplish to whom I address these 
articles. 

I could take up pages of this 
magazine in an attempt to give a 
definition of a DATABASE that might 
please all readers. But, for this 
series, I will define a DATABASE as 
a large file or group of files 
containing partitioned information 
about a number of individual items 
called RECORDS. Each RECORD in the 
DATABASE shares common rela- 
tionships to the other RECORDS - 
although the exact data or in- 
formation might be different. These 
shared relationships in the 
DATABASE are called FIELDS. 

In your Phone Directory, your 
listing and all the other listings 
are the RECORDS. Name, Address, and 
Phone Number are the FIELDS that 
all listings share. In a checkbook, 
each check is an individual RECORD. 
Date, Payee, Expense Category, and 
Memo are the FIELDS shared by all 
checks. 

Why so many CoCo users cringe 
at the use of database programs is 
not easy to understand. I would 
guess the size of the documentation 
and the strict nature of command 
structures to learn throw many 
people into a state of confusion 
and frustration. But understanding 
how the program works conceptually 
gives one a big edge to under- 
standing the documentation. People 
use the process of database over 
and over in their everyday lives. 



Below are some illustrations. I 
take extra time now to explain the 
workings of database so that when 
we progress to more complex ex- 
amples, it will be a simple matter 
to follow. 

Remember, that this is not a 
technical physical description, but 
rather, my own mental picture that 
helps me to understand how a data- 
base works. If a different picture 
works for you, by all means use it. 
The program that I will be using to 
model files and reports is the 
WORKBASE DATABASE MANAGER by 
WORKBASE DATA SYSTEMS of North 
Carolina. If a program you use has 
different commands and different 
capabilities, it does not matter 
for understanding the concept is 
the key to successful use of DBMS 
programs. Learning the actual ins 
and outs of your program's doc- 
.umentation is secondary. 



Title 

Cosby 
Charmings 
Sledge Hammer 
Evening 
Tour of Duty 



1. 
2. 
3. 
4. 
5. 
6. Movie 



Channel 


Time 


NBC 


8:00 


ABC 


8:30 


• ABC . 


8:00 


NBC 


8:30 


CBS 


8:00 


CBS 


9:00 



So someone asks you: "What 
time does 'Evening' come on?" You 
look down each record until you 
find the one called "Evening" in 
the title field. Then you look 
across to the time field and see 
it's at 8:30. What else is on then? 
You now look only at the time field 
for those that say 8:30. "Charmings 
is on ABC. And from inference, you 
can add that there is still 30 
minutes left on "Tour of Duty". 




van der Poel Con-t. 



This loop of checking t.he mouse 
and keyboard continues until a 
valid key or the mouse button is 
pressed. If you do not have a mouse 
or joystick connected you can 
simulate a mouse by pressing 
CTRL/®. Now the cursor keys will 
move the bar just as if a mouse 
were connected (use shift/cursor 
for faster movement); pressing the 
<F1> or <F2> keys is the same as 
pressing a mouse button. 

Next issue: more handy 
subroutines which* 11 get you pro- 
ducing professional looking pro- 
grams in no time flat. And don't 
forget to write with those 
suggestions and questions for 
future columns. My address is: 



17435-57 Avenue 
Edmonton, Alberta 
Canada T6M lEl 
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11-12-13 
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Caley Cont;. 



Inv. Comp. Date Amnt. YTD Bal. 



1234 


XYZ 


10/1 


$200 


$200 


5678 


WXY 


10/3 


$150 


$500 


6643 


PQR 


10/4 


$ 75 


$125 


6601 


XYZ 


10/6 


$ 75 


$275 


6678 


STU 


10/2 


$ 25 


$ 25 



Which invoices are over $100? 
Exeunine amount field to find that 
1234 and 5678 qualify. Who has a 
balance under $200? Examine YTD to 
find that PQR Co. and STU Co. 
qualify. What dates were charges by 
XYZ. Examine Company and date 
fields. 

So you see, we all organize 
our information to the best of our 
ability whether its in our heads or 
on paper somewhere. It is a simple 
process using an X-Y axis. 

Each RECORD in a Database has 
a "name** of some type. In a check- 
book its the check number. In 
Accounts receivable it's an account 
It assigned to a company. I 
visualize RECORDS on an "X" axis 
moving from top to bottom in a 
vertical fashion. FIELDS, on the 
other hand, would lie on the "Y" 
axis in a horizontal fashion. When 
you desire certain information, you 



propose a question in a fashion 
that allows your mind to extract it 
in a logical manner. Let's look at 
our Invoices again. The Invoice t»'s 
are the RECORD names on the "X" 
axis. The others comprise FIELDS on 
the -Y" axis. 



Inv. Comp. Date Amount YTD Bal. 

1234 XYZ 10/1 $200 $200 

5678 WXY 10/3 $150 $500 

6543 PQR 10/4 $ 75 $125 

6601 XYZ 10/6 $ 75 $275 

6678 STU 10/2 $ 25 $ 25 



If I say "Let me see invoice 
1234," I would see all 4 FIELDS for 
only #1234. If I say "Let me see 
date," I will see the date for all 
invoices. If I say let me see 
RECORDS who have a YTD Bal ace less 
than $100, - I would move down the 
**X" axis and across the "Y" axis to 
check balance FIELD. I would find 
that l»6678 was the only RECORD with 
a YTD FIELD less than $100. 

So that's how a database 
works. It takes the records we have 
placed in it and when we ask it 
questions in the prescribed 
fashion, it will very rapidly move 
along the two axes to select the 
information we wish to get back. 
Why is a DBMS such a valuable tool? 
Well, it is very tedious entering 
all the information into a data- 
base. But the payoft is in what it 
can give back to you and how fast. 

The human mind cannot look at 
a check register and sort 400 
checks per month and give a report 
subtotaled by expense category 
sorted by GL account number very 
quickly. It would take days! Or, 
from a list of 200 clients, how 
fast could you tell your sales 
manager the name of all clients who 
have purchased more than $X in the 
last 30 days who live in a 
specified range of zip codes? You 
see? A database program can answer 
questions like that and print the 
reports in a matter of minutes I So 
no matter if you are running a 
business or categorizing your 
antique collection, the CoCo can be 
an invaluable tool to assist you 
with organization of information 
and rapid retrieval of the data in 
the order and format chosen. 

That now brings us to the task 
at hand: build a database from 
scratch, and design the accom- 
panying calculation and report 
procedures. I have designed 
literally hundreds of database tem- 
plates for myself and my clients. 
So it was very difficult for me to 
choose an example that might appeal 
to a majority of readers. A large 
majority of the work I have done 
has been in the area of accounting 
databases and related financial 
reports. While these are very 
necessary and widely used ap- 
plications, I decided that plain 
financial data might not be as 
interesting to study. Consequently, 
I asked around for suggestions, and 
foud one unlike any I had done 
previously. 



I will outline the problem the 
way it was proposed to me; and 
beginning next issue, I will relate 
the manner in which the database 
and reports were designed to 
provide a reasonable solution to 
the problem. Hopefully, you readers 
might kick around a few ideas for a 
solution yourself. Then you can 
compare your solution with the 
concepts presented in the upcoming 
articles. For future database 
applications, suggestions from you 
are MOST welcome. Any application 
you have that might be an inter- 
esting challenge and of interest to 
readers, please submit to me at 
8289 Banner Road S.E. Port Orchard, 
WA. 98366. 



Here are excerpts from a 
letter in which a DBMS application 
was suggested to me: Names of the 
submitting person and company are 
not mentioned. 



Rush: One of the databases I could 
use or have thought about is one 
which would do something with 
downtime at the pleuit where I work. 
During a day's work, we are to keep 
a simple log of down time that 
occurs so we can "justify" the 
efficiency achieved during a shift. 
It could have been machine trouble, 
lab delays, people problems, etc. 
We have no way of quantifying or 
qualifying any of this data. It is 
the relationship of the causes to 
the down time I need. 



We know we have down time, but 
nobody has any idea of why. It's 
like a cave man wondering about 
thunder and lightning. "OOOh, WoW! 
Look at that Stella- lights and 
noise. I wonder how it gets here 
and why it only happens when it 
rains?" We stumble around wondering 
why do we always have downtime on 
this shift? Why do we always have 
down time when we run product X; 
sometimes with product Y; and never 
with product Z. That's because we 
don't track it, categorize it, or 
analyze it. Hope that explains the 
problem clearly. 

Now accompanying this note 
were some log sheets with in- 
formation with technical terms 
involving the information that is 
"given". It will be assumed that 
they know how many widgets should 
have been produced and how many 
were actually produced. The data- 
base I will design beginning next 
issue will attempt to solve this 
problem with one that will allow 
for a minimum input, but give back 
enough information to quantify and 
qualify the downtime problems. 
We'll begin by defining the data 
elements in the database and 
setting up the database field by 
field. Upon completion, we should 
be able to provide at least three 
different angles from which the 
down time data can be analyzed and 
action taken from the information 
provided. 

I hope you will find this 
application as interesting as I do. 



NEW FROM ARK ROfAU 



f4gW Pro Football: Strategy Gridiron game (CC3 128K HR B) 520 

i^gW Okinawa: The Big Invasion (CC64K D HR ML) ^27 

^gW Blitzkrieg West: A Bigger Bulge (CC64K D HR ML) J27 

heW Bataan: Historical & Hypothetical games In one (CC64K D HR ML) ^29 

^eW Desert Fox: Rommel (CC64K D HR MLS) J27 

HgW Task Force: Modern Naval War in the Med {CC64K D HR MLS) *27 

^0^0 DDAY:The6thofJune(CC64KHRML) J25 

^aAO^^ Battle Hymn: Battle of Gettysburg (CC64K D HR ML) .-• • • •••-.• 525 

^^ lo^ Company Commander: Squad level Wargame (CC32K SG MLS) $25 

^^^^ (House to House Module included in Company Commander) . r^> ^ 

Additional Models for Company Commander 3.0 ":-:r- ^ 

River Crossing • • • • •;*<;-" t^j 

heW Gemini . . . . . . T • • > • • • ••••>: • • ' "'^ • '- ^ - 

new Cauldron : . ......:....... ••.•••• .;••'•/• ""- *J^ 

MtW Beach Head .\ .......:........ :....•..,..::•,•••• •^- ; ^*' 

Fire One! Submarine Simulation (CC3 D HR B) .:.... • • • • • -r-!.- •••••*• •&; *• ^^^ 

Luftflotte: Battle of Britain (CC32K SG MLS) ... . . /. :.^ .>vV..'K^. - .^r;-^; 525 

Stalingrad: The turning point (CC64K HR ML) \, .;!.';... .. .:.:...:..... '-'7' ^-^-^^-^^ 

-Final Frontier: War in Space (CC32K D HR MLS) : . ; .,.-. . . .^.^.,v. . . ..... . ^:3. -y'^- - - '7"'^^ll 

^r Fire & Steel: Waterloo Campaign (CC64K D HR MLS) ; .;. ^7. ^Jv v; . . . . . . .j„;: • -^- >• 5- • • 522 

? C^ Barbarossa: The War in Russia (CC64K HR ML) >. . . . /. \. V . .-^va • • • • -• v ^r\^' •' j- • • ^z 

> ^..RedStar: Nato vs Warsaw Pact (CC32K D HR IVIL) -. ...%-; ;. .'T-::^; .V. -.V.^ .^ ^- . . ;522 

4i^'' DarkHorse: RedStar Sequel (CC64K D HR ML) . :. . .^\ v :. .^ ; y ^^^'^'^•i il^^v: y" J?? 

--^ Midway: The Turning Point In the Pacific {CC32K HFi MLS) .-. rV. ;'. . .^. . . . ./.'.\. •^^{iZ-hX-'il^*^^ 

^Escape From Denna: Dungeons! (CC32K SG MLS) . • • • v- • • v v*': • v,v • vt^* \ 

Tunis: War in the Desert (CC32K SG B) . . .;. t^^,. ,% V . . -^ . .^^ • •l..^!'- • • ^^;^J^^ 
^' Battle of the Bulge 1 or 2 player (CC32K SG B) '.;/:.'. . . . ... . ;V. /: . .::r; . . ^^ '. . .-. •• ^>; -K^^^^v 51^ 

"^Phalanx: Alexander the Great (CC32K HR ML) . . . . . -^ v^>.r:- v -.^ • -- : ^; v^-j:;1>-j^^^ '^ 

'Rubicon II: Invasion game (CC32K SG B). ; . r..; . . . ... . .y.^ .:rr^. . ...v//-. ;\ -ft^rv -^^E^^^^ 

Guadalcanal: America Strikes Back (CC32K SG MLS) . • • VV- t,- • •- • • • • • v: • • • -^^l^! £#^4*^^^*^° \ 

Waterloo: Napoleon (CC32K SG MLS) ,:;:; i^^. .r. . .H . ....... .... .^ :. . .^ . ....!::>. %y^^';v'r'^10/ 

Bomber Command: Strategic Bombing Mission (CC32K SG MLS) ^. . :. ^. .^r. • .yf.-.:. ^.^$10 

.Kamikaze: Naval War in the Pacific (CC32K HR B) . .\. . . . .y. ••^v^^ . . . . ....... r • • • -'-^Zf/^T^^^. 

; Starblazen Strategy Star Trek (CC32K SG MLS) ^ . v . ..... X.^. , ... ... .,.;.. •!•-;:•;.• • -^ • ^^^^ 

I Mission Empire: Build an Empire in Space (CC32K SG B) ... • • • .y^ ^. •- •••;:>•;* • • • • • • r'- • • • l^^^ ^ 

1 Galactic Taipan: Economics in Space (CC32KSG B) .•;•,••• \r'rr/-^''*'.^\^-'::f-v'!i'- •^•^510^ 

Keyboard General: Bi-monthly newsletter yearly sub . i ..... . ... .>./^\.:j,«."-^-" •'•'•'•"• 515 

Barbarossa, Luftflotte, Battle Hymn (256K) available Tandy 1000 ^J^ 
New for the Tandy 1000: ^ : /^- '"■■'. J^y^p^ 

Gray Storm Rising: War in the North Atlantic ,. ^. .. . V.- --. ... .v:' 525 

Codes CC — Color Computer, all versions ^ J"~ CCS CoCo 3 only 

D — Disk only (no D means program available tape or disk) 

HR — High Resolution 'SG — "Semigraphics - ML — Machine Language 

MLS — Machine Language Subroutines B — Basic 



Write for free catalog! 

(Upgrades may be acquired for $5. Original tape or disk must be returned 

with order.) ^1^ ^rw^A f r^ A ^MC^ 

Prices on all programs Include shipping costs to USA and Canada. Others /z -f^ W^^^^i^ 

add $3.00. COD's available in USA only, add $3.50. Personal Checks ac- p^Q. BOX 14806 

cepted with no delays in USA. Others send M.O. or Bank Draft In US funds. |o/^lrerM-i%/ill£^ PI '^OO^R 

Programs shipped within 24 hours except on weekends. Color Computer JaCKoUnVllie, PL O^^OO 

and Tandy 1000, TM Tandy Corp. Florida residents add 5% sales tax. (904) 786-8603 

Canadians may order direct from: M & M Software, #203 818 Watson Ores., 
Dawson Creek, B.C. VIG 1N8. Write M & M Software for information. 




Genealogy — Program 



Ken Barber 



Did you know -that genealogy is 
the world's second most popular 
hobby? And with good reason, too! 
Learning about your roots touches 
the deepest parts of your soul. 
It's a part of your identity - how 
you came to be; and once you start, 
you will find it quite impossible 
to put completely away. 

So how do you start? You 
start with yourself. Write down 
your full name, the way it appears 
on your birth certificate, and when 
and where you were born. Then 
record the same information (making 
sure to always use ladies' maiden 
names) for your parents, and their 
parents, and so on. The only catch 
here is finding all this informa- 
tion! Once you do, the accompany- 
ing program does a superb job of 
storing it and displaying it in 
ways that make sense. 

The best source of family 
history are those who are still 
living. Ask your parents, your 
grandparents, elderly aunts, uncles 
whoever you have. If none of them 
are left, that's OK, because all 
that is in their obituaries, which 
you will usually find stored be- 
tween the pages of the family 
Bible. In fact, old family Bibles 
are the next best source of infor- 
mation in an ancestor search. Up 
until about a generation ago, 
nearly everyone recorded the family 
births, deaths, and marriages there 
and they are rarely thrown away. If 
you still have elderly relatives 
living, ask to see their old 
Bibles. You'll be surprised how 
much is in there! 

There are lots more resources 
you can use after this — in fact, 
far more than there is room to 
write about here. There are obits 
and birth announcements in news- 
paper archives, baptism records in 
old churches, birth certificates in 
county courthouses, and census re- 
cords. Beginners will need help 
with the latter and lots of it is 
available in two different places: 
local genealogy clubs, and gene- 
alogical libraries that the Mormons 
have set up in most of their "stake 
houses". The Mormons have excellent 
libraries and I have never received 
any pressure there to join their 
religion. Genealogy clubs have a 



wider variety of resources, in- 
cluding people with know-how, than 
the Mormons do (the Mormons tend to 
concentrate on certain specific 
sources of information). 

USING THE PROGRAM 

The version appearing here re- 
quires a 32K CoCo with Extended 
BASIC (see the end of this article 
for information on getting a 16K 
standard BASIC version). It will 
store six pieces of information on 
each of 128 people: name, date and 
place of birth, date and place of 
death, and date of marriage for a 
person, his or her spouse, and six 
generations of ancestors. The en- 
tire pedigree can be printed out on 
nine pages (that's how many it 
takes to do seven generations) of 
four-generation charts or a single 
four-generation, chart can be print- 
ed for anyone in the database 
except the spouse of the original 
person. If you are married with no 
children yet, you can leave the 
original record (record til) blank 
and then be able to store the 
pedigrees of both yourself and your 
spouse. You will notice that this 
program stores only direct ances- 
tors and does not manage infor- 
mation on siblings, aunts /uncles, 
cousins, etc. To do that effec- 
tively requires some pretty soph- 
isticated programming. 

The main menu has four op- 
tions: saving your work, editing 
data, viewing data on-screen, and 
printing charts. We will discuss 
the spreadsheet-like screen display 
first. 

Except when you're viewing the 
last generation or the spouse of 
person ttl, there will be three re- 
cords visible with the top and 
bottom records being the father and 
mother of the person in the center. 
Think of your screen as a window 
that you can move with the arrow 
keys (here the program ignores all 
other keystrokes except BREAK). 
Moving the window "up" will put the 
top record in the middle with his 
parents above and below him, and 
•moving it down will do the same for 
the bottom record. The left arrow 
will move the window "back" along 
the tree towards person HI, imd 
will bring up the spouse of l»l when 



<^1 is in the center. (NOTE: only 
the down-arrow koy will return to 
person tH from his/her spouse's 
record). The right arrow escapes to 
the main menu. 

The data input / edit screen 
will accept data for the person who 
was in the center when viewing the 
chart. To enter your mother's data 
after entering yours, for instance, 
you must return to the main menu, 
display the chart on-screen, select 
your mother's (empty) record with 
the down-arrow key, escape back to 
the main menu, and then choose 
again the input/edit data option. 
It will drive an experienced 
computerist nuts, but first-timers 
love it! You just can't get lost. 
When you select the "Create a new 
chart" option from the program's 
self-explanatory startup menu, you 
will be dropped into this screen 
for person number one. Again, you 
can leave this or any other record 
blank by returning to the main menu 
without entering data. If you're 
using a CoCo I or II, everything 
you type will end up in capital 
letters unless you press SHIFT-0 
(zero) first (but you only have to 
do it once). Lower case letters 
will appear on-screen in reverse 
video. 

You can save files on either 
tape or disk. The name you give the 
file when saving appears at the top 
of the printouts as a "chart 
number". If you have more than 
seven generations to store, you can 
do them in batches with the first 
one stored under the filename O^JK/ 
with the next one being saved as 
TWO/, etc. Be careful to use cap- 
ital letters when naming files, and 
if you use a slash or period 
without any extension (as above), 
the system will leave off the /DAT 
extension that it usually auto- 
matically appends. Saves can also 
be done in "printout* format". This 
is a one-way export function: it 
makes an exact copy of the printout 
in a disk file so you can do 
further editing, if you wish, with 
a word processor before printing. 
Files saved this way cannot be read 
back into the program as data. 

The printing function has 
enough flexibility that it has its 
own menu. As mentioned above, you 



can print all nine pages or only 
one page for anyone except the 
spouse of person 1(1. You can also 
send control codes to your printer 
to vary its character size or style 
and at the sane time direct the 
program to make the printouts wider 
or narrower than the standard 80 
characters per line (you can also 
do this before exporting a printout 
to a word processor). You'll need 
to understand a little bit about 
printer control codes to use this 
effectively. The control codes are 
sent immediately to the printer; no 
provision is made for recourse from 
mistyped code numbers, and the 
program does not remember the codes 
after they have been sent (but 
don't forget that the printer 
remembers until it's reset — even 
after you've exited the program!). 
The program does, however, remain 
at the line length you set it for 
until you change it again. 

Exit the program at any time 
(except NOT while it's accessing a 
disk!!) by pressing BREAK. If you 
BREAK by accident, restart by 
typing (X)NT. CoCo I's and II's will 
still be in lower-case mode after 
quitting and your computer won't 
understand any commands you type in 
until you hit a shifted zero again. 



ABOUT THE PROGRAM 

It was originally written to 
run in a 16K standard BASIC 
computer and store on cassette tape 
back when 32K and disk drives were 
still luxuries for the rich. That 
original version is available from 
the author, whose address is in the 
program listing, for a $10 donation 
plus a blank cassette, mailer, and 
return postage (or add $5 and I'll 
pick up the tab on materials and 
handling). You oan also get the 
same program you see here already 
on disk for the same deal along 
with better instructions and a 
sample pedigree of John Quincy 
Adams. 



ABOUT THE AUTHOR 

Ken Barber is self-employed as 
a computer consultant in the 
Portland, Oregon metropolitan area, 
where he resides with his two 
children. 

50 DATA 0, 0. 2. 0, 0. 1. 0. 1* 
2, 0, 1, 0, 1, 0. 2, 1. 0. 1, 1, 

1, 2, -1, 0. 0- ' Loop counters 

for add /multiply loops 
90 PCLEARl : CLEAR 14336 
100 DIM ARRAY$(128, 4), MARRIAGE 
$<64), PRNT$(2), INDEX(2). LOOPS 
(3). WHICH(2) 

110 PAGEWIDTH=80: INDX(0)=1: LAB 
EL$(0)= -NAME ": LAB$(1)= ~BORH 
": LAB$(2)=: "B AT -: LAB$(3)= "D 
lED *•: LAB$(4)= ''D AT " 
200 CLS : PRINT" YOUR ANCESTO 
RS V. 1.2.4", "COPYRIGHT (C) 19 
85 BY KEN BARBER", , " THIS PRO 
DUCT IS DISTRIBUTED", " UNDER TH 
E 'SHAREWARE' CONCEPT.". "PLEASE 

FEEL FREE TO GIVE COPIES OF IT 

TO AS MANY PEOPLE AS YOU" 
210 PRINT" WISH I HOWEVER. THE AU 
THOR NEEDSDONATIONS TO CONTINUE 

10 



MAKING IM- PROYEMENTS TO THE SOF 
TWARE. IF YOU LIKE THIS PROGRAM 
. PLEASE SEND $10.00 TO KEN B 
ARBER AT:" 

220 PRINT ,, " 5785 BRICKY 
ARDRD. ", " TILLAMOOK, OR 
97141". " (PRESS ANY KEY TO 
BEGIN)"; 
240 X$ = INKEY$ : IF X$ = "" THE 
N 240 ELSE CLS : PRINT « 288, " 

1 CREATE A NEW CHART", " 2 L 
OAD PREVIOUSLY SAVED CHART".,,., 
."COPYRIGHT (C)1985 BY KEN BARBE 
R"; 

244 '*******»**************** 
246 '* FILE LOADING ROUTINE * 
246 ' ************************ 
250 GOSUB 2000: IF X$= "1" THEN 
500 ELSE CLS: PRINT ®43, "LOAD F 
ROM : ".,," 1 TAPE",,.," 2 D 
ISK" 

260 GOSUB 2000 : DEVICE = VAL(X$ 
)*2-3 : IF DEV = -1 THEN PRINT,, 
" POSITION TAPE AND PRESS PLAY" 

270* INPUT " NAME OF FILE TO 
LOAD ";FILE$ : OPEN "I", l»DE 
V, FILE$ 

280 IF EOF(DEV) THEN 280 ELSE I 
NPUT IJDEV. RECNUM : FOR FLD = 
TO 4 : LINE INPUT <»DEV. AR$(REC. 
FLD) : NEXT FLD : LINE INPUT l»D 
EV, MA$(REC/2) : FOR FLD = TO 
4 : LINE INPUT «»DEV, AR$(REC+1, 
FLD) : NEXT FLD : GOTO 280 
290 CLOSE «DEV 

300 ' ********************* 

301 '* MAIN MENU ROUTINE * 

302 ' ********************* 

305 CLS : PRINT TAB( 11) ; "CHART « 
";FILE$, TAB( 10); "ANCESTORS OF" 

310 PRINT #128, "1 SAVE FILE ON 
TAPE OR DISK", , , "2 INPUT OR CO 
RRECT DATA", , . "3 DISPLAY CHART 
ON SCREEN".., "4 PRINT CHARTS",, 

320 X$ = INKEY$ : IF X$ < "l" OR 
X$ > "4" THEN 320 ELSE ON VAL(X 
$) GOTO 400, 500, 600, 700 

400 ' *******************^* 

401 '* SAVE FILE ROUTINER* 

402 ' ********************* 

405 CLS : PRINT «44, "SAVE TO : 
"..," 1 TAPE"..,.- 2 DISK" : 

GOSUB 2000 : DEV = VAL(X$)*2-3 
410 CLS : PRINT «32. "1 NORMAL 
SAVE",.., "2 SAVE IN PRINTOUT FO 
RMAT"...: GOSUB 2000 : IF DEV = 
-1 THEN PRINT"POSITION TAPE AND 
PRESS RECORD",,, 

420 INPUT " SAVE UNDER WHAT FI 
LENAME ";FILE$ : OPEN"0", ItDEV 
. FILE$ : IF X$ = "2" THEN 710 E 
LSE FOR RECNUM = TO 126 STEP 2 
430 IF AR$(REC, 0) = "** AND AR$( 
REC +1. 0) = "" THEN 450 
440 PRINT l»DEV. REC : Xs REC : 
OSUB 2100 : PRINT »DEV. MA$(REC 
/2) : X = X-H : GOSUB 2100 
460 NEXT REC : CLOSE t»DEV : GOTO 

300 

500 ' ************************* 

501 '* EDIT A RECORD ROUTINE * 

502 ' ************************* 
506 CLS : IF INDX(0) > 1 THEN IF 

INDX(0) AND 1 THEN PRINT"*"; IN 
DX(0); "MOTHER OF", AR$(INDX(0)/ 
2. 0) ELSE PRINT"I»"; INDX(0) ; "F 
ATHER OF". AR$(INDX(0)/2. 0) ELS 
E IF INDX(0) THEN PRINT"I»1 ON CH 
ART" ELSE PRINT"SPOUSE OF", AR$( 

1, 0) 

510 FOR FLD = TO 4 : X$ = AR$( 



INDX(0), FLD) : PRINT «64 +FLD * 

64. FLD 41; LAB$(FLD); : IF FLD 

AND 1 THEN GOSUB 1600 

520 PRINT X$ : NEXT FLD : PRINT 

®384, " 6 MARR "; : X$ = MA$(IND 

X(0)/2) : GOSUB 1600 : PRINT X$ 

: PRINT ©448, " 7 NO CHANGES (RE 

TURN TO MENU)" 

530 X$ = INKEY$ : IF X$ < "1" OR 

X$ > "7" THEN 530 ELSE IF X$ = 
"7" THEN 300 ELSE IF X$ = "6" TH 
EN INPUT MA$(INDX(0)/2) ELSE LIN 
E INPUT AR$(INDX(0), VAL(X$)-1) 
540 GOTO 500 

600 ' ******************** 

601 '* ONSCREEN RECORDS * 

602 '* DISPLAY ROUTINE * 

603 ' ******************** 

605 CLS : FOR RECS s TO 2 : CU 
RRNTRECRD = INDX(0) : IF REC <> 
1 THEN CUR = CUR *2+ REC /2 
610 IF (INDX(0)=0 OR INDX(0)>63) 

AND REC <> 1 THEN 640 : 'If onl 
y one record to display. . . 
615 'Print top or bottom record 
routine: 

620 PRINT AR$(CUR, 0): PRINT «32 
-»- REC *192, ; :FOR FLD = 1 TO 3 S 
TEP 2: X$ = AR$(CUR, FLD): GOSUB 

1600: PRINT LAB$(FLD); X$. :NEX 
T FLD: PRINT LAB$(2); AR$(CUR, 2 
): IF REC =2 THEN 660 ELSE PRINT 

996-*- REC «192, LAB$(4); AR$(CUR 
. 4) 

630 PRINT «128-»- REC *192, "MARR 
"; : X$ = MA$(CUR /2) : GOSUB 16 
00 : PRINT X$ : 'Display date of 

marriage 
640 IF REC < 2 THEN PRINT «160'^ 
REC *192. STRING$(32. 42); : 'Dr 
aw a bar between records 
650 NEXT REC : GOTO 670 
660 PRINT LAB$(4); LEFT$(AR$(CUR 
, 4), 26); : ' Display last line 

on screen 
670 'Wait for the operator to pr 
ess an arrow key: 
675 X$ = INKKY$ : IF X$ = "" THE 
N 670 ELSE X ^ ASC(X$) 
680 'If ritfht-arrow then main me 
nu; If up or dovm arrow then oha 
nge index number to father's or 
mother's record; if left arrow t 
hen change index to child's numb 
er: 

685 IF X=9 THEN 300 ELSE IF X=8 
THEN INDX(0) = INT(INDX(0)/2) EL 
SE IF XO10 AND X094 THEN 670 E 
LSE IF INDX(0) > 63 THEN 600 ELS 
E IF X=10 THEN INDX(0) = INDX(0) 
*24l ELSE INDX(0) = INDX(0)*2 
690 GOTO 600 

700 **************************** 

701 •* PRINTER OPERATIONS MENU « 

702 ' *************************** 
705 DEV= -2 

710 CLS : PRINT,," 1 CHANGE PRI 
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Genealogy Lisitn^? 



NTER PARAMETERS",,." 2 PRINT 

ME PAGE",.," 3 PRINT ENTIRE CH 

ART".,," 4 RETURN TO MAIN MENU" 

715 'Change printer parameters r 

outine: 

720 X$ = INKEY$ : IF X$ < "1" OR 

X$ > "4" THEN 720 ELSE ON VAL(X 
$) GOTO 730. 770, 780. 300 
730 CLS : PR$(0) = "" : PRINT, , T 
AD(6); "INPUT CODE NUMBERS.", '■ 

ENTER '256' WHEN FINISHED."... 
740 PRINT LEN(PR$(0))-fl; : INPUT 

X : IF X>=0 AND X<266 THEN PR$( 
0) = PR$(0) 4 CHR$(X) ELSE 760 
750 GOTO 740 

760 INPUT "HOW MANY CHARACTERS P 
ER PRINTED LINE";PA : PRINT l»DEV 
. PR$(0) : GOTO 710 
770 INPUT "STARTING WITH PERSON 
l»";INDX(0) : IF INDX(0) <1 OR IN 
DX(0) >127 THEN 770 ELSE PGNUM=0 

: PRINT UDEV : GOTO 790 : 'Set 
variables to print only one page 
780 INDX(0) =1 : FOR PGNUM = 1 T 
O 9 : PR$(2) = LEFT$(AR$(1. 0), 
PA-40) : PR$(1) = "ANCESTORS OF 
" + PR$(2) 4 STRINa$(PA-40-LEN(P 
R$(2)), 32) + "CHART II " + FILE$ 

+ STRING$(12-LEN(FILE$). 32) + 
"Pago" 4 STR$(PG) : PRINT UDEV. 
PR$(1) 

791 '* PRINT A PAGE ROUTINE * 

792 '4c«3|c4c«4c4c}ic4(«««4c«)|c«««}«(««:(c«:(c 
795 INDX(2) = INDX(0) *8 : SIDE 
=1 : WH(1) =6 : WH(2) =0 : RESTO 
RE ; PRINT UDEV : PRINT UDEV 
800 GOSUB 860 : PR$(2) = LEFT$(P 
R$(2). (PA-3)/2 +1) : GOSUB'860 

: PR$(1) = MID$(" " -f PR$(1), 

7- L0(3) *3, (PA-3)/2 ■»-3) : SPAC 

ES= (PA-3)/2 43 - LEN(PR$(1)) : 

IF SPACES <0 THEN SPACES =0 

810 PR$(1) = PR$(1) +STRING$(SPA 

CES. 32) ■»-PR$(2) : PRINT UDEV. P 

R$(l) 

820 IF WH(1) <> WH(2) THEN 800 E 

LSE PRINT UDEV. STRING$(6. 13) 

830 IF PG THEN IF PG=1 THEN INDX 

(0) = INDX(0) +7 ELSE INDX(0)= I 

NDX(0) 41 ELSE 850 

840 NEXT PG 

850 CLOSEUDEV : IF DEV= -2 THEN 

710 ELSE 300 

660 4c4(4(4^3|w4(^^^3((34cj(C}|(4c3tc}((}^)|c}K4(^}|(^ 

861 '* ROUTINE TO ASSEMBLE * 

862 '* A PRINTOUT LINE * 

865 SIDE = 2+ (SIDE =2) : WH(SID 

E) = WH(SIDE) 41 : PR$(SIDE) = " 

" : IF INDX(SIDE) <128 THEN C 

URRNTRECRD = INDX(5IDE) ELSE CUR 

= 128 
870 ON WKSIDE) GOTO 900, 1000, 
1100, 1200, 1300, 1400, 1500 

900 ' ^^^^***^^^^**ili^**^^^A^*^^^*^ 

901 '* PREPARE A NAME TO PRINT * 

902 'iti*^******riH^**^*^A^^*^*i^A^^>¥.>¥*- 
905 IF INDX(SIDE) AND 1 THEN PR$ 
(SIDE) = "\ " 

910 PR$(SIDE) = PR$(SIDE)+ AR$(C 
UR, 0) : RETURN 

1000 ' ********:#:*************)<c 

1001 '* PREPARE A BIRTHDATE * 

1002 '****^t**:il^**ilfi7(ii*^*y^3li>ilii**^^ 
1005 IF INDX(SIDE) AND 1 THEN PR 
$(SIDE) = - \ " 

1010 X$= AR$(CUR, 1) : GOSUB1600 
: PR$(SIDE)= PR$(SIDE)+ "Born " 
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*** COLOR COMPUTER III SOFTWARE *** 



*** ♦** *** 



CBASIC III EDITOR/COMPILER 

The ULTIMATE Color Computer HI BASIC COMPILER!!! 

If you want to write test e(nr«eiit machine language programs and you don't 
want to spend the next few yea» tryingiolearnhowiowrite them in Assembly 
language or with a cheap compiler, then CBASIC III is the answxr!!! 

CIIASIC III is the only fully integrated Basic Compiler and Program lidiling 
System available for the Color Computer 3. It will allow you to take full ad\'aniage 
of aH the capabilities svailabte in your CoCo-S including 5I2K RAM.*ilhoul 
having to spend years trying to le«m assembly language programming. CBASIC 
III allows you to create, edit and convert programs from a language you are 
already familiar with Enhanced Disk Color Basic, into fast efficient machine 
language programs easily and quickly. CBASIC III supports all the enhanced 
hardware available in the CoOva. including I li-Iles Graphics. & Screen displays. 
Extended Memory and Interrupts (Keyboard. Timer. Serial & Qock). We even 
added advanced commands not available in Basic to give you a level of control 
only avialable to very advanced Machine Language Programmers. Plus we made it 
exceptionally easy to use, not like some other compilers. CBASIC III is the 
friendliest and easiest compiler available for the Color Computer III. 

CBASIC III is a powerful tool for the Beginner as well as the Advanced Basic 
or Machine Language programmer. You can write programs without having to 
worry about the Stack, DP Register, memory allocations and so on, because 
CBAStCIll will handle it for you automatically. For Advanced users, CBASIC III 
mill let you control every aspect of your program, even generating machine code 
directly in a nrogram easily. 

CBASIC III features well over 150 Compiled Basic Commands and Functions 
that fully support Disk Sequeniiat and Direct access files. 1 ape. Printer and 
Screen I/O. It supports AU- the High and I^ow Hcsolution Graphics. Sound. I*lay 
and String Operations available in Enhanced Color Basic, including Graphics 
n/Oirr. Il/Put. Il/Play and I I/DRAW, all with 99.9% syntax compatibility. 
CBASIC III also supports the built in Serial I/O port with separate programmable 

Printer & serial I/O baud rates. You can send and receive data with easy to use 
Rirsrr. input, INKEY, OrraiAR and PUICIIAR commands. 

CBASIC makes full use oi the powerful and flexible GIMI chip in the Color 
Computer 3. It will fully utilbe the 128K of RAM available and install 2 Uhra 
Fast Ramdisks if 5I2K is available, for program Creation, Editing and 
Compilation. You can easily access all 5 12K of memory in a Compiled program 
thru several extended memory commands that can access it in 32k or sk blocks 
and single or double bytes. 

CBASIC has its o«-n completely integrated Basic Pribram Editor which allows 
you to load, edit or create programs for the compiler. It is a full featured editor 
designed specifically for writing Ba.MC progranu. It has block move and copy, 
program renumbering, automatic line number generation, screen editing, printer 
control ami much more. 

'Die documentation provided with CBASIC III is an 8 1/2 by II Spiral Bound 
book which contains approxinutly 120 pages of real information. We went to 
great lengths to provide a manual that is not only easy to use and understand, but 
complete and comprehensive eiwugh for even the most sophisticated user. 

CBASIC III is the most expensive CoIch- Basic Compiler on the market, and 
m-ell worth the investment. You can buy a less expensive compiler for your 
CoCo-3. and then Find out how difficult it is to use. or how limited its features are. 
llien you'll wish you had bought CBASIC III in the fir^t place. Dollar for dollar. 
CBASIC III rives you more than any other compiler available. If you can find a 
better CoCo-3 Basic Compiler then buy it! II 
Requires 128K & Disk $149.00 



DATAPACK III PLUS V1.1 
SUPER SMAHT TgRMINAL PRQgRAM 

AUTOPILOT 6l auto-log PROCESSORS 

X'MODEM DIRECT DISK FILE TRANSFER 

VT'IOO A VT'52 TERMINAL EMULATION 

* No lost data even at 2400 Baud on the COCO-3 Serial I/O port. 
- 8 Display Formats. 32/40/64/80 columns at 192 or 225 Res. 

* 50K Text Buffer when using the Hi- Res Text Di.splay A Disk. 

* ASCII &. BINARY disk File transfer support via XMODEM. 

* Directly record receive data to a disk file (Data Logging). 

* VT- 100 terminal emulatioii for VAX, UNIX and other systems. 

* VT- 100/52 cursor keys, position, insert /delete. PF & Alt. keys. 

* Programmable Word Ixngth. Parity, Stop Bits and baud rates. 

* Complete Full and Half Duplex operation, with no garbled data. 

* 9 Variable length. Programmable Macro Key buffers. 

* Programmable Printer rates from 110 to 9600 baud. 

* Send Files directly from the Buffer. Macro Keys or Disk. 

* Display on Screen or Print the contents of the Buffer. 

* Freeze Display & Review information On Line with no data loss. 

* Built in Command Menu filelp) Display. 

* Built in 2 Drive Ramdisk lor 512K llAM support and much more. 
Supports: R.S. Modcm-Pak A Deluxe RS-233 Pak. even with Disk. 

Requires 128K & Disk, $59.95 

EDT/ASM III 

t28/Si2K DISK EDITOR ASSEMBLER 

EDT/ASM III is a Disk based co-resident Text Editor & Assembler. It is 
designed to take advantage of the new features available in the CoC6-3 with either 
i 28K or 5 1 2K of memory. It has 8 display formats from 32/40/64/80 columns by 24 
lines in 192 or 225 Resolution, so you use the best display mode whether you are 
using an RCiB or Composite moaitor or even a TV for your display. Plus you can 
select any foreground or background colors or even monochrome display modes. 
It will even support 5I2K by adding an automatic 2 drive Ultra Fast l<amdiskfor 
lightning fast a<»embly of program source code larger than memory. There is also 
a free standing ML Debug Monitor, to help you debug your assembled programs. 
EDT/ASM III has the most powerful, easy to use Text Editor available in any 
Editor/A!(scmbler package for the Color Computer. 

* .Supports Local and Global string search and/or replace. 

* Full Screen line editing with immediate line update. 

* V'jtsy to use Single keystroke editing commands. 

* Ixnd A Save standard ASCI formatted file formats. 

* Block Move A Copy, Insert. Delete. Overtype. 

* Create and Edit files larger than memory. 

TTie /Vsiiembler portion of lU)T/ASM III features include: 

* Supports the full 6809 instruction set A cross assembles 6800 code. 

* Supports Conditional IF/THI^N/EIiiE assembly. 

* Supports Disk Ubrary file (include) up to 9 levels deep. 

* Supports standard Motorola assembler directives. 

* Alloy's multiple values for FCB & IT)B directive (unlike R.S. EDT//^SM) 

* Allows assembly from the Editor Buffer. Disk or both. 

Requires i28K & Disk $59.95 



TEXTPRO IV 

The ADVANCED CnrO.3 Word Processing System" 

• 9 1 li-Res Displays from 58 to 2 1 2 columns by 24 lines in 225 Res. 

• On Screen Display of Bold, Italic. Underline & Double Width print. 

• Up to 8 Proportional Character Sets Supported with Justification. 

• Up to 80 Programmable Function Keys A Loadable Function key sets. 

• Fvlly Buffered keyboard accepts data even duiring disk access. 

• Auioexecutc Startup files for easy printer & system configuration. 

• 8 Pre-Defined Printer function commands & 10 Programmable ones. 

• Supports Library files for unlimited printing & configurations, 

• Disk file record access for Mail Merge & Boiler Plate printing. 

• Completely Automatic Justification, Centering. Rush left A right. 

• Change indents, margins, line length, etc. anytime in the text. 

• Create and Edit files larger than memory, up to a full disk. 

• Easily imbed any number of printer fornwt and control codes. 

• Built in Ultra Fast 2 drive RAMDISK for 5I2K support. 

TEXTPRO IV is the most advanced word processing system available for the 
COCO-3. designed for speed, flexability and extensive document processing. It is 
not like most of the other word processing programs available for the Color 
Computer. If you are looking for a simple word processor to write letters or other 
short documents, and never expect to use multiple fonts or proportional spaang. 
then most likely you'll be better off with one of the other simpler word processors. 
But, if you want a powerful word processor with extensive document formatting 
features to handle large documents, term papers, manuaU. compiex formatting 
problems and letter writing, then TEXTTRO IV is what your looking for. It works 
in a totally different way than most word processing programs. It uses simple 2 
character abbreviations of words or phrases for commands and formatting 
information that you imbed directly in your text. There are over 70 different 
formatting commands you can use without ever leaving the text your working on. 
Tliere are no time comsuming. and often frustrating menu chases, you are m total 
control at all times. You can see what the formatted document will look like 
before a single word is ever printed on your printer. Including margins, headers, 
fooieis. page numbers, page breaks, column formatting, justification, and Bold. 
Italic, Underiinc. Double Width, Supertcript and Subscript characters right on the 
screen. 

n-X-lTRO IV can even support LASER PRINTERS with proportional fonts, 
ta ke a good look at this AD? hw ^donewith IliXIPRO iVonan OKIDATA 
lJ\SI:RLINE-6 laser printerUI All the character .sets used on this AD are 
proportional spaced characters, all centering, justification, and text printing was 
performed automatically by TEXITRO IV. 
Reqtiircs I28K & Disk $89.95 

HI-RES III Screen Commander 

The DISPLAY you wanted but did n*t get on your CoCo-a 

• 54 Different Character Sizes available from 14 to 212 cpl. 

• Bold. Italic. Underiine. Subscript. Supeitcript and Plain character styles. 

• Double Width. Double Height and Quad width characleis. 

• Scroll Protect form I to 23 lines on the screen. 

• Mixed Text A Graphics in I ISCREEN 3 mode 

• PRINT @ is available in all character sizes & styles. 

• Programmable Automatic Key repeat for fast editing. 

• Full Control Code Keyboard supported. 

• Selectable Character & Background color. 

• Uses onlv 4K of Extended (2nd 64K) or Basic RAM. 

• Written in Ultra Fast Machine Language. 

III-RES III will improve the standard display capabilities of the Color 
Computer 3. even the 40 and 80 column displays have several features missing. 
For example, you can't use PRINT @ or have different character sizes on the same 
screen, even when mixing text and graphics with the HPRINT command. Ili-RES 
III can give you the kind of display you ahvays dreamed about having on your 
CoCo-3. with a wide variety of display options that you can easily use with your 
Basic or ML programs. 

III-RES III is totally compatible with Enhanced Color Basic and its operation 
is invisible to Basic. It simply replaces the normal screen duplay with an 
extremely versatile display package. With the full control code keyboard, vou can 
control many of III-RES III extended functions with just a couple of simple 
keystrokes. 

Requi res 128K Tope or Disk $34.95 

512K RAMDISK & MEMORY TESTER 

RAMDISK U an Al X Machine Language program that will give you 2 ULTRA 
Highspeed Ram Disks in you CbCo-3. It does not need or require the OS-9 
operating system. It works with R.S. DOS V1.0 or Vl.l and it is compietely 
compatible with Enhanced Color Disk BasicI Plus it allows your CbC6*3 to run at 
double speed all the time even for floppy disk access!!! It will not disappear when 
you press reset like some other ramdisk programs. The MEMORY tester is a fast 
ML program to test the 512K ram. It |ierfoiirts several bit tests •» well as an 
address test so ^ know that your 5 12K of memory is working perfectly. 
Requires 512K & Disk $19.95 



"The SOURCE III" 

piSASS^MB^^gl^ at SOURCE COPg GgN^MTOR 

The SOURCE III will allow you to easily Disassemble Color Computer 
machine lannuigF programs Directly from Disk and fenerate beautiful. Assembler 
compatible Source co^ 

* Automatic label generation and allows specifying FCB. FOB and FCC areas. 

* Disassemble programs Directly from disk, unlike other disassemblers. 

* Automatically locates Begin, End and Execution address. 

* Output Disassembled listing with labels to the Printer. Screen or both. 

* Crenerates Assembler source files directly to disk or printer. 

* Built in liex/Ascii dump/display to locate FCB. FCC & FDR areas. 

* 8 Selectable Display formats 32/4Q/64/80 columns in 192 or 225 Res. 
• * Selectable Foreground & Background colois A Printer Baud rates. 

* Built in Disk Directory an Kill file commands. 

* Menu display with single key commands for smooth. Easy operation. 

* Written in Ultra Fast Machine I.anguage. 

Requires 128K & Disk $49.95 

To order products by mail, send check or money order for the amount of 

purchase, plus S3.00 for shipping A handling to the address below. 

To Order by VISA. MASTERCARD or COD call us at (702) 452-0632 

(Monday thru Satunlay. Sam to 5pm VST) 

CER-COMP LTD. 

5566 Ricochet Avenue 

Las Vcga.s Nevada 89110 

(702) 452-0632 



Product Reviews 



Lee Parker and Ted Paul 



January Reviews 

Now that the holiday crunch is 
over you can take that glow in the 
dark tie Aunt Bes gave you for 
Christmas, return it and buy some 
terrific software for your CoCo. 
We've done some quick reviews for 
this month to get as much 
information as possible into this 
issue. 

From: Spectrum Projects 
P.O. Box 264 
Howard Beach, NY 11414 



512K Ram Upgrade 
s/h 



- $49.95 + $3.00 



Read the directions. OBEY the 
directions. This upgrade came with 
the chips mounted in anti-static 
foam. That's to keep them chips 
from being ruined. The board itself 
is well constructed and the in- 
structions are clear. Needless to 
say I read the instructions, but 
promptly installed one of the chips 
in the wrong direction. Couldn't 
get my CoCo 3 to work. Put the chip 
in right - everything A-O.K. ! Be 
sure those chips go in the right 
way. And if you've never installed 
chips into sockets don't be alarmed 
if things seem tight, that's the 
way. it's designed. Rock the chips 
gently into the sockets and you'll 
be all set. You will have to cut 
leads on 2 capacitors on the mother 
board. They are not easy to get to 
and you should have a pair of 
cutting dykes to get to them. 

Follow the directions, fire up 
your new 512K CoCo 3 and load 
in 



From: Spectrum Projects 
P.O. Box 264 
Howard Beach. NY 11414 

RS-DOS Ram Disk - $24.95 + $3.0^ 
s/h 

So now that you've got a 512K 
CoCo 3 having a RAM Disk on-line is 
great fun. Spectrum Projects RS-DOS 
Ram disk has worked with every 
program I have tried with the 
exception of G.E. TERM and 
Mikeyterm. Obviously I haven't 
tried every program I own but the 



ones I use the most - word 
processing and database management 
- work just great. I currently use 
CoCo Writer II (Moreton Bay) on my 
CoCo 3. CW II uses 3 programs - a 
disk manager, a high -res screen 
display formatter and the standard 
32 column display. Each program is 
integrated and is called from disk. 
With Spectrums RAM Disk the loading 
and switching times are VERY fast. 
I also use TIMSMAIL and TIMSUTIL to 
manage our mailing list. The TIMS 
Series runs like a jack rabbit 1 
Saving files with either of these 
programs using the RAM Disk is fast 
and simple and having 3 drives is 
great. The program lets you have as 
many as 5 drives on line (3 
physical and 2 RAM) and you can 
configure the program to set up the 
drives on boot up. Easy to use and 
a bargain at the price. 



From : Spectrum Projects 
P.O. Box 264 
Howard Beach, NY 11414 

Fast Dupe 512 - $19.95 + $3.00 s/h 

If you have a one drive CoCo 3 
system you need this program. If 
you have a 2, 3, or 4 drive CoCo 3 
system you need this program. Bob 
Rosen says he uses this program all 
the time at Spectrum Projects. It 
will handle 35 or 40 tracks. 0S9 
Level II disks, single side, double 
side and all you have to do is fol- 
low the directions on the licreen-. 
Very simply this program lets you 
make backup copies of your 
diskettes without ANY swapping - 
well just the one needed to pull 
the master copy out and the blank, 
unformatted disk in. That's right 
this program will formatt your disk 
for you and then write the back up! 
It has several status, bars on the 
screen keeping you up to date on 
what is happening. Fast, simple and 
fun to watch FASTDUPE 512 is 
dynamite. 

From : Spectrum Projects 
P.O. Box 264 
Howard Beach. NY 11414 

Big Buffer - $ 19.95 + $3.00 s/h 

What would you say to a print 
buffer as big as 437K1 Big Buffer 
from Spectrum projects works with 
almost any program that uses the 



Basic Statement of Print iJ-2. It 
will work with many non-Basic 
programs but you will have to 
experiement. As with the other CoCo 
3 items from Spectrum Projects Big 
Buffer is easy to use with simple 
directions and boy does it work 
well. I wrote a simple label 
generator program to printer return 
labels for the magazine. I needed 
1500 labels and even at 9600 baud 
my Epson LX-80 printer and it's 2K 
buffer would be tied up a long 
time. I installed Big Buffer, ran 
my program, loaded in my labels and 
hit the "P" key and expected the 
CoCo to be tied up for a while. 
What would have taken a long time 
to send to the printer suddenly was 
taking just a few minutes before I 
got my blinking cursor back and I 
could go on to other things. At 
$19.95 it's a deal and a half. 



From; Dr. Preble's Programs 
6540 Outer Loop 
Louisville. KY 40228 

Basic Freedom for CoCo 1,2,3 - 
$24.95 + s&h 

These are actually two pro- 
grams. One for the CoCo 1 and 2 and 
the other for the CoCo 3. Each 
sells for $24.95. Frankly as much 
as I like my CoCo the ability to do 
on screen editing during BASIC 
programming is a pain. This is the 
program that Tandy should have had 
in ROM. Instead Larry Preble & Co. 
have brought you editing Freedom. 
Including key repeat and lowercase 
interpretation, BASIC Freedom let's 
you zoom all over your screen 
making changes to line numbers, 
commands - whatever without all the 
finger gymnastics that Extended 
Basic puts you through. If you do a 
lot of BASIC programming this is a 
MUST buy item from the good Doctor. 




Con-binued 
Page 18 
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I Powergragh— 

I Basic 09 Drawing Program 



Randy Krippner 



This month we're going to 
explore the Coco 3's graphics cap- 
abilities with a Basic09 program 
called PowerGraph. PowerGraph re- 
quires a Coco 3 with 512K RAM. 0S9 
Level 2 and Basic09. 

PowerGraph uses the CocoS's 
320 X 192, 16 color graphics mode, 
so it's necessary to create a 
device window in the correct 
graphics mode, then start a Shell 
in the new window so we can work m 
it. It is also necessary to merge 
the font, pointer and pattern files 
from the SYS directory to the 
window. 

He'll have 0S9 do this for us 
automatically with a procedure 
file. To make a procedure file 
which will create the correct 
window, boot 0S9 and type the 
following lines: „ ,.„^ 
build graph. window <ENTER> 

wcreate /wl -s=8 40 24 2 
<ENTER> 

merge /d0/sys/stdfonts >/wl <ENTEB> 

merge /d0/sys/stdptrs >/wl <ENTER> 

merge /d0/sys/stdpats_16 >/wl 
<ENTKR> . 

display lb 3a c8 ol >/wl <ENTER> 

shell i=/wl& <KHTER> 

<ENTER> ^ ^ . 

The character between std 
pats- and -16" is an underline, 
generated by holding down CTRL and 
then pressing ---. BUILD is an 0S9 
utility which is used to create 
short disk files. It opens tijil^ 
on disk called "graph, window and 
places everything you type into the 
file. 

At the 0S9: prompt, type 
GRAPH. WINDOW <ENTER> and 0S9 will 
create the new window for you. If 
you get a "path name not found 
error, one of the files required to 
build the new window and support 
the graphics mode is not on your 
system disk, or you made a typo 
when creating the GRAPH. WINDOW 
file. List GRAPH. WINDOW and make 
sure it is correct. If that was not 
the problem, then ' you probably 
deleted a required file. Just make 



a backup copy of your original 0S9 joystick - -us^ ^^^-, Toystt^S 
i?L'rr^g^^ar°Sisf ^Ls^tuTf t^e l^'^oJ^'L. have it connected 
required files on it. properly. 



If you do not have the in- 
terface, you can use 0S9's 
"V r Yhonrd mouse: , ^^fter running 
the program, just press CTKL/ll.u*ak. 
This toggles the keyboard mouse on 
and off. When the keyboard mouse is 
on, the arrow keys will move the 
pointer and either Fl or F2 can be 
used as the fire button. There is a 
trick to using the keyboard mouse. 
To move the pointer onfi pixel at 
a time, hold down SHIFT when 
pressing the arrow key, otherwise 
the pointer will move several 
pixels at a time. 

Even if you use a mouse or 
joystick, you may wish to use the 
keyboard mouse to do fine work. It 
is difficult to finely control the 
pointer with a mouse or joystick. 

To run the program, boot 0S9. 
Create the graphics window by 
typing the name of the procedure 
file listed above. Jump into the 
new window by pressing CLEAR. Load 
Basic09, GFX2, INKEY and SYSCALL 
from your Basic09/Conf ig disk. 
Start Basic09 as described above. 
Load PoerGraph. (You might make a 
proceedure file that does most of 
this for you. ) 

Finally, at the Basic09 B: 
prompt, type: 

run powergraph <ENTER> 

Your screen will clear and the 
Function menu will appear. This 
menu permits you to select any of 
PowerGraph' s drawing functions or 
sub-menus . 

To select a function, move the 
pointer onto the desired function 
and click. What happens next 
depends on which function you 
selected. If you selected one of 
the drawing functions, you must 
move the pointer to GO and click 
again to actually use the function. 
If you selected one of the sub- 
menus, still other menus will 
appear on the screen. 



After the window is created, 
press CLEAR to jump into the new 
window. 

Now start Basic09 and type in 
the program. Don't save each 
procedure individually. Instead, 
type: 

save* PowerGraph <ENTER> 

This will save all of the 
procedures into a file called 
PowerGraph. Even though they are 
-Stored in a single file, they are 
still individual procedures. This 
Just makes it easier to save and 
load the program. 

By the way, here's how you 
load LOAD Basic09 if you've never 
used it before. Place a backup copy 
of the Basic09/Config disk in drive 
and type: 

chx /d0/cmds <ENTER> 
load basic09 <ENTER> 

After the 0S9: prompt appears, 
put your system disk back in drive 
and tinrit- rhy /m/rr^'' <^f.nter>. 

To start Basic09, type: 

■basicgg 1f^^Y: <knter>. 

This tells 0S9 to start Basic09 
and reserve 12K RAM for work space. 
Don't reserve more. If you reserve 
too much memory, the save/load 
routines will not work. 

When you wish to run the 
program, you must also load the 
GFX2, SYSCALL and INKEY modules 
from the Basic09/Conf ig disk after 
loading Basic09. 

Be careful when typing in the 
READMOUSE, SETMOUSE and DISK 
FUNCTIONS procedures. These pro- 
cedures make System Calls to 
subroutines in 0S9. If you make a 
typo in setting up the parameters 
before the system call is made, 
anything can happen. 
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example, you can keep on drawing Clear: Clears screen. Click on 

boxes until you want to switch Clear, then on GO. 

functions. The nenu is re-called by 

pressing any key on the keyboard. The other functions are: 



The drawing functions are: 

Point: Places a dot at 
pointer location when clicked. 



the 



Line: Place pointer on start of 
line and click. Place pointer on 
end point of line and click again. 

Box: Plaoe pointer on corner of 
box and click. Move pointer to 
diagonally opposite corner and 
click again. 

Bar: Same as box, but box is 

filled with current color or 

pattern. Use patterns only with 
BAR. 

Circle: Click on center of 
circle. Move pointer directly left 
or right to edge of circle and 
click. 

Ellipse: Click on center of 
ellipse. Imagine a box containing 
the ellipse. Move pointer to a 
corner of this imaginary box and 
click again. 

Fill: Fills an area with the 
selected color. 



Color: Brings up the Color 
Menu. To select a color, place 
pointer on the color and click. 
That color will be used for all 
draw/fill functions until color is 
changed again. 

Pattern: Brings up the Pattern 
Menu. To select a pattern, click on 
the desired pattern. To turn 
patterns off, click on the top bar. 
Use Pattcrnj^ nnW with the BAR 
functlQi^f 

Palette: Brings up the Palette 
menu. This routine will be added 
next time. 

Disk: Lets you save or load 
your pictures. Enter 1 to save a 
picture, or 2 to load a picture. 
Enter any other number to abort the 
operation. (Press ENTER after 
selecting the option. ) Then enter 
the file name of the picture and 
press ENTER. The picture will be 
saved or loaded. 



END: Ends the 
returns to Basic09. 



program and 
You'll note one other option 



on the menu, the word OFF printed 
in darker letters than the other 
functions. This is the 
ixtgifitoggle. You can do some 
interesting special effects by 
selecting logic functions for 
drawing. Clicking on this function 
for drawing. Clicking on this 
function will toggle between OFF, 
AND, OR and XOR. 

There are some quirks to the 
program, and a couple of bugs I 
found lurking in 0S9. 

You must always re-select your 
drawing function after using any of 
the other functions, such as logic, 
clear, color, etc. 

The mouse button is sensitive. 
If you hold it down for more than a 
fraction of a second, it will be 
read as two clicks. 

Pictures take up a LOT of 
space. You can only save about four 
or five pictures on a single sided 
disk. Pictures are saved as four 
individual files, each containing a 
quarter of your picture. 

Using the pointer in the menu 
windows takes practice. If you try 
moving the pointer outside of the 
window area, the pointer will fail 
to respond until you move the 



msmt 



Create calendars on-screen or on paper. In an 
elongation mode, prints a large format calendar 
with personal notes added to specific dates. 
Requires 16K ECB Tape or Disk and R.S. Dot 
Matrix printer. $9.95 



jlJtt^iT? 



Keep track of telephone numbers, addresses, 
birthdays or any other information. Addresses 
can be printed in mailing label form, or the 
information can be printed across the page, 
also selected portions of the data can be 
printed. . 16K ECB Tape or Disk $14.95 



llijyjliflill^ 



Keep track of such items as household possess- 
ions for insurance purposes; stamps, coins, or 
other collections. Contains an edit mode and 
and a deletion mode. Alphabetizes or arranges 
entries in numerical order. Printouts. 
16K ECB Tape or Disk. $14.95 



l!!^y!l^-a!!T^^ 



Savings planner. Loan planner. Budget planning. 
Electronic checking account with check writer 
using RS "multi-purpose checks", and Electronic 
savings account. 32K Tape or Disk $19.95 



lEteimnlln? 



Draws a calendar for any month or year. Draws 
biorhythffi charts for any selected period of 
time. Calculates ^ human compatability based on 
biorhythros. 16K ECB Tape or Disk $14.95 



fetea? 



Improve next years vegetable garden by planning 
before you plant. Includes gardening informa- 
tion on popular vegetables, garden planning, 
planting guide, and a shopping list. 
16K Tape or Disk $14.95 



msM 



Graphic creation program that can produce hugh 
456x565 pictures. Conpatible with most other 
non-'OS9 PMODE 4 graphics creation programs. 
64K Disk only $24.95 



BjQiilflalMiD 



Machine language screen dump for RS Dot Matrix 
Printers. Enlarged, negative, positive images. 
Automatic image centering or manual setting. 
16K/32K Tape or 32K Disk. $14.95 



SM[ilIl2?a 



ML special effects to show off your CoCo art 
collection. Vertical transition, horizontal 
transition, opening curtains, closing curtains, 
nested squares, inverted, mirror images, 
negatives, slices, cross, and blocks. 
32K Disk ^^ _ 519 95 



gniHlHilHipi 



Make your favorite music visible with LO, HI, 
or ULTRA resolution. Irt the kaleidoscope mode 
portrays sound waves by rapidly changing color 
and line patterns. Requires tape recorder. 
16K ECB Tape or Disk. $19.95 

Add $3.00 to order for ODD or UPS. Pemsylvania 
residents add 6% sales tax. Immediate shipnent. 

Tbthian Software, Inc. 

Box 663 

Rimersburq, PA 16248 
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pointing device back into the 
window. 

There are two bugs. If you use 
patterns for FILL or other drawing 
operations, you'll quickly get a 
"Stack Overflow Error** and the 
program will crash. This doesn't 
happen when using BAR, however. So 
if you want to use patterns, select 
the pattern the select BAR. When 
you are done with BAR. make sure 
you turn the patterns off by 
clicking on the top bar in the 
Pattern Menu. 

The other bug is related to 
the graphics mode PowerQraph is 
using. Very interesting things 
happen if you don't turn 0S9's 
automat io scaling feature off 
before using the 320 graphics mode. 
Delete the RUN GFX ( "scalesw" , 
"OFF") line in the PowerQraph 
proceedure and you'll seee what I 
mean. 

Finally, take a look at the 
SETP ALETTE procedure. When the 16 
color graphics mode is used, the 
palette only has 8 unique colors. 
Eight colors are duplicates. To get 
16 unique colors, the palette must 
be modified. I added SETP ALETTE to 
do this until the Palette Menu is 
added. If you can't wait you can 
get different colors by changing 
the numbers in the DATA statement 
in this proceedure to generate any 
of the 64 colors the CoCo 3 can 
produce. 

PowerGraph is certainly not 
complete. I hope the program sparks 
your creative juices and that 
you'll add your own enhancements to 
it. If you come up with an en- 
hancement, send it in so we can 
share it with other readers. 

Next time we'll add the 

Palette Menu and look at some of 

the technical details behind the 
program's operation. 

Send your questions or 
comments to: Randy Krippner, 1014 
W. Hwy. 114, Lot 29, Hilbert WI 
54129. Please include a stamped, 
self addressed envelope for a 
reply. 




^ 
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From: Dr. Prebles Programs 
6540 Outer Loop 
Louisville, KY 40228 

CoCo Braille - $49.95 + s/h 



What can you say about a 
program as complex as one which 
converts program files, word 
processing texts and data files 
into Braille virtually without 
error but misses the mark on get- 
ting printed. Well you can say a 
lot. State of the art Braille 
programs and Braille computer 
printers are expensive. There are 
several commercial Braille trans- 
lation programs for the Apple and 
IBM series of Computers, and 
Braille printers are expensive and 
noisy. The one reason that Braille 
printers are expensive and noisy is 
because they must "emboss** the dots 
which form Braille letters, symbols 
and numbers into very stiff and 
heavy paper. The dots or bumps must 
survive piled on top of each other, 
between covers of a notebook, under 
books, just about anywhere you'd 
place normal text. Unfortunatley 
according to the Braille specialist 
who reviewed the sample printout 
provided to us, the embossing 
available from the Brother HR 
series printer and the paper used 
were below standard for longevity 
and ease of reading by a sight 
impaired student. The Grade 2 (the 
more advanced version of Braille) 
was extremely accurate, the only 
drawback was the quality of the 
print out. 



The question then becomes one 
of coat vs. quality. Another way of 
saying this is value. What value 
does a program like this have. 
First of all having a program of 
this magnitude available on the 
CoCo is remarkable. Small private 
schools or poorer school districts 
needing to stretch every available 
dollar could save a bundle with 
this program. Parents of sight 
impaired or blind students like 
every other mom and dad needing to 
make every dollar count, would also 
benefit from this program. And this 
is despite the lower quality of 
embossing offered by the printer 
re- quired by the program. The high 
priced and high tech Braille only 
printer might produce a better 
reading text but it doesn't do 
anything else. At least the Brother 
printer can be used to knock off 
letters, program listings or 
spreadsheets. So the value in this 
program offering is its low cost. 
We feel that Dr. Preble has made a 
SJgnificantcontribution in real 
world applications- for the CoCo 
despite the drawbacks (minor in 
light of the prgram cost) of the 
Braille produced by the Brother 
printer. 

From: Dr. Prebles Programs 
6540 Outer Loop 
Lous ivi lie, KY 40228 



Mental Freedom - $24.95 •»■ s/h -•■ Bio 
Feedback Monitor from Radio Shack. 

I'll be frank with you - 
getting in touch with my inner 
being has never been something I 
ever thought much about. Having 
been through a lot of the upheval 
of the late 60 's and early 70' s on 
college campuses . and the experi- 
ments people did to get in touch 
with themselves I wanted no part of 
it. From my vantage point most of 
these people spent more time trying 
to make contact than they did in 
the classroom. . Since I never got 
into that sort of thing and hadn't 
planned on it untill I tried 
Mental Freedom in Princeton and met 
Larry Preble. 

This is not a cheap investment 
if you have to go out and by the 
Bio Feedback Monitor from the 
Shack. $12.00 or so for the 
monitor and another $2.00 for the 
recommended alkaline battery and 
getting in touch with my inner self 
was getting in me more in touch 
with my wallett, but hey this 
program is FUN! Go ahead, load the 
program, hook up the Bio Feedback 
monitor and relax. The program 
tests your ability to stay calm, 
especially if your sweetie starts 
whispering sweet nothings in your 
ear, or your team scores the 
winning touchdown! Mental Freedom 
literally measures your ability to 
stay relaxed and to some degree 
helps you learn to control your 
emotional response. The program is 
highlighted by PMODE 3 graphics of 
a floating swammi, rising pyramids, 
s limey snakes and digitized voice 
response. During the program the 
Bio monitor measures your emotional 
state and the program will note 
this causing pyramids to rise or 
fall depending on your ability to 
control your emotions. Watch out 
for the snake and calmly levitate 
out of the way. Give the Doctor a 
call for Mental Freedom, relax and 
get in touch with your funny bone. ! 



From: Spectrum Projects 
P.O. Box 264 
Howard Beach, NY 11414 

Spectrum Projects Super Max III 
Interface Plus Software Package - 
$39.95 -I- $3.00 p/h 

by Lee Parker 

If you bought a CoCo 3 and 
already o%m CoCo Max 2 (by Color- 
ware) and don't want to lay out the 
bucks for a new graphics editor for 
your 3, check out this package from 
Spectrum Projects. 
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TAKE IT 
FROM 



CoCo Clipboard 

Magazine 



x>t^' 





THE NEWEST, MOST INDEPTH 
MAGAZINE FOR TANDY'S 
COLOR COMPUTER 2 & 3 



Ve»r Sirs: 

Thank you so much -for sending me 
the first issue of your magazine* 
2t looks like it's going to be a 
great publication* 

Mark Duval 
Medina, H.Y. 




CoCc:! CX DLDg>'boeixrci Msie'eiss ir^i^ 

is worth more than gold. All meat articles - 
no fluff, no filler. Paul Bornemann 
Commentary Kraig Brockschmidt, Bandy 
Krippner, Bob van der Poel and Delmar Searles 
on programming! Jim DeStafeno and Bush Caley 
on Business and Mike Dooley on Ham Badiol 
Bill Bemico and BASIC BELP and 
Ted Paul CoCo-Club Corner 



Congratulations on a great first 
issue/ I can honestly say I enjoyed 
each of the articles and look 
forward to seeing more of the same. 
Your anti-fluff attitude is Nell 
appreciated* 

Robert J. Sulliyan 



MDIR (Bob van der Poels article in 
issue 1) is North $12,00 to me so I 
am sending in ay subscription* He 
need a magazine like this.* 



All Subscriptions will start with the next 
issue after your subscription is received. 



Hugh M* Betz 



Please sign me up to CoCo Clipboard 
Magazine* I have most of your free 
issue READ and REALLY ENJOYED IT* 
Please keep up the great Nork and 
please don't do like past CoCo 
magazines have done* 

Keith H* March 



"^^s ■ I'm ready to join the adventure 

Enclosed is my check or money oirder for 
$12.00 for 6 issues (1 year) of CoCo 

Clipboard Magazine. 



Overseas Subscriptions are $27.00 U.S. Fundi 
Name 



Address. 
City 



State or Province 



ZIP or Postal Code 
Mail to: 



CoCo Clipboard 
Magazine 



Sample issues 
are $3. 50 



3742 U.S. 20 Box 3. « Trcdonia. H.Y. 14063 
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10 % OFF 

Any software from D. P. Johnson 
Willi this coupon 

Expires 2/15/88 


1 


.■-■.■.■.■-■-■-■-■.■.■-•.■.■-■.■.■.■.-.■.■.■.■.•j 









Save $3.00 with this 
coupon on any program 
ordered from our ad 
in this issue of CoCo 
Clipboard Magazine. 

Tothian Software, 
Box 663 
Rimersburgr PA 16248 






2%f 




ARK ROYAL GAMES 

P.O. Box 14806 

Jacksonville, FL 32238 

(904) 786-8603 



10% Off ony Ark Koyal produc-t 
in -their ad with this coupon from 
Clipboard! 

, """" "" "" 




T&D Subscription 
Software, 

an advertiser 
in this magazine, 

wants to introduce you 
to their variety of 

inexpensive software 
by giving you a: 

FREE Disk or Tape 

Filled with 10 programs 
1 coupon per household 

Circle one: TAPE DISK 
Mail this coupon to: 

T&D Free Offer 

P.O. Box 1256 
Holland. MI 49423 



MARTY'S RUDPgR STAMP DISCOUNT COUPON! \ 

He can now offer COLORS for many nylon cartridge 
ribbons. Our RAINBOW-PAK contain 6 different 
colored ribbons. Write for prices. Specify your 
printer's name & model. 

Marty's Rubber Stamp Shop 

47 South Second St. 

SAIHT CLAIR, PA 17970 

(717) 429-1052 



Save OQjf on Emerson Computer Services Software. 
Order any program and Include This Coupon and you 
may take advatnage of the following discounts: 

i. S0^00 to $49»99 take 5% off total order/ 

2. i50,00 to S99,99 take 10Z off total order/ 

3. Oy£R $100.00 take 15Z off total order/ 

On a *100.00 order you'll save enough to pay -for 
your subscription to CoCo Clipboard. Discounts do 
not apply to shipping charges and must be added 
: after your discount. .. 



THIS COUPON IS GOOD FOR: 
5% Off on Any 2 Programs or 

10% Off on ALL THREE Programs 

in our ad in this issue of CoCo Clipboard 
Magazine 

Send your order with this coupon to: 

Kraig Brockschmidt 

SIGMA SOFTWARE 

14024 152nd. Ave. SE 

Ronton. WA 90056 



STOCK MARKET PORTFOLIO 
FOR THE COLOR COMPUTER 



Save 10% on Stock 
Harket Por folio Nith 
this Clipboard Coupon 



Paparis Enterprises •■ 
700 York St. 
Williamsburg, VA 23185 
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BASIC Programming Contest 



Bill Bernico 



Editors Notes As «e mentioned in our "From the 
Desk Column*' on pmge 2, CoCo CJipbomrd Magazine is 
announcing a Basic Programming contest/ This con- 
test is based on part on the following article by 
Bill Bern i CO m 

This article Nas originally to have been in 
'^Spectrogram Magazine"^ Homever Nith the demise of 
Spectrogram Me have decided to pick up Bills 
column for this issue of Clipboards He have also 
awarded a free subscription to the Ninners - 
George and Ellen AftamonoN^ 

He Nere so impressed Nith these CoCo 2 
programs that Me are announcing our ONn version of 
a programming contests. The general premise of the 
contest is based on a CoCo 3 version of Ellen's 
"hUSHAKE'* program^ He are looking for a program 
that uses the advanced hi^-res graphics capability 
of the CoCo 3 and a DIFFERENT design to the pro- 
gram. For example Ne'd like to see not only the 
multiple colors available, but also somthing other 
than the grid pattern used by Ellen. Perhaps 8 
concentric circles, or an octagon or four blocks 
of 16 squares Cor circles or triangles) . It's 
pretty mide open. Your program must still produce 
the same musical tones and have the play back 
feature the original did» 

Entries mill be Judged here at Clipboard and 
by Bill Bernico, Entries must be submitted on 
cassette or disk and include a print out of the 
listings. Entries cannot be returned unless a 
S,A,S,E, and return postage is provided. Deadline 
for entries is June 1st 1988, Contest Ninners mill 
be announced in our first anniversary issue in 
September , And Me do have some prizes/ 

He mill mill have a first and second prize minner , 
Both Ninners nUI receive a free one year 
subscription to Clipboard - or an extension to 
their existing subscription. The first place Nin- 
ner nUI also receive an adjustable 80 column 
printer stand courtesy of the Dunkirk NeN York 

Continued next page. 



Well, the contest is over and 
the results are in! I'm happy to 
announce that we have a winner in 
the BASIC Programming Contest from 
Volume 2, Issue 2 of Spectrogram 
Magazine. Unfortunately, Spec- 
trogram is no longer in business, 
however the prizes will be honored 
by CoCo Clipboard Magazine. The 
winning entry belongs to Andrew 
Bartels from Mesa, Arizona. He has 
titled our creation "ZOOM" and 
rightly so. ZOOM is an example of 
simple animation using the GET and 
PUT commcuids. Here's how Andrew 
describes its operation: 

"All commcmds of Mr. Bernico' s 
starting program are still existing 
in this program. However, I have 
added three new commands. 

The first is enacted by 
pressing the "S" key. This allows 
one to select which frame he is 
editing on the grid screen. You can 
choose from one of 25 frames per 
screen. Use the arrow keys to move 
around the various frames. Press 
<ENTER> to select the frame to 
edit, and you will be returned to 
the grid screen to edit that frame. 
When you enter the select mode, the 
pixels on the grid screen are 
automatically put in the last frame 
you selected. Upon startup, this is 
the first frame. 

The second addition is a save 
and load feature. To get to the 
save and load screen, press "D" at 
the grid screen. The frames are 
saved in a binary file that loads 
from 3584 to 9727, thus almost any 
picture can be loaded and edited. 

The final addition utilizes 
the "A" key to animate the frames 
you have created. All 25 frames are 
shown, regardless of whether they 
have anything in them or not. This 
program is designed to take ad- 
vantage of ON BRK GOTO and POKE 
65497,0 when run on a CoCo 3, but 
will operate with only CoCo 2 com- 
mands if run on a CoCo 2. For the 
fastest and best operation, a CoCo 
3 is recommended, but a minimum of 
32K memory is required, as well as 
at least one disk drive. 

I have a sample animmation 
sequence for this program. If any- 
one would like to see it, send a 
disk and return postage to me. 
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Free Library and 3 softNare programs -from a list 
of programs from Tandy, Bill Bernico, Spectrum 
projects and other Ss. The second prise Ninner nUI 
haye a choice of 2 programs from that list. 

The decision of the judges is final. 

P.S-r Also awarded a prize in Bills contest is Hr » 
AndreN Bartels. 



Your disk will be returned con- 
taining the sample animation. *' 

If any of you have any 
questions regarding the program or 
the sample animmation sequence, 
please contact Andrew Bartels, 1859 
E. 8th Street. Mesa, AZ 85203- 
6649. My congratulations to Andrew 
for a well written program. Andrew 
will receive a one year subscrip- 
tion to CoCo Clipboard Magazine. 

A prize also goes to George 
Aftamonow who submitted a nice game 
called "HOT&COLD". Coincidently, 
George's wife, Ellen, submitted an 
entry of her own titled "MUSMAKE", 
winning her the prize of a year's 
subscription to CoCo Clipboard 
Magazine, also. 

I'd like to thank all the 
Spectrogram readers who helped make 
this an exciting contest. I'd also 
like to announce that with the 
passing of Spectrogram Magazine, my 



BASIC HELP column will continue in 
the pages of CoCo Clipboard 
Magazine. Please forward any of 
your BASIC questions to: 

BILL BERN I CO 

708 Michigan Ave. 

Sheboygan, WI 53081. 



Listed in this 
winning entries. 



issue are the 



10 'BASIC PROGRAMING CONTEST 

20 'BY BILL BERNICO 

30 'AND ANDREW B. BARTELS 

40 ' 

50 PCLEAR8 : CLEAR 500:H=132 : V=101 

:DIMAl(41).X(25).Y(25):PMODE3,5: 

PCLSl : PM0DE3. 1 : P1=PEEK(&HE000) *2 

56+PEEK(&HE001):Q=0:W=0:IFPl=230 

THEN POKE55497,0:ON JGOTO680 

60 A$="BR3U4E2F2D2L4R4D2BR15 

70 B$="BR3R3L3U6R3FDGL3R3FDGBR14 

80 C$="BR3BUFR3L3HU4ER3BD6BR15 

90 D$="BR3R3L3U6R3FD4GBR14 

100 E$="BR3R4L4U3R3L3U3R4BD6BR15 

110 F$="BR3U3R3L3U3R4BD6BR13 




7^^ 

RAINBOW 



If You Arc Scriou.s About Stocks. 
This Program Is A Must! 
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Slock Market portfolio for the color computer 
will keep track of all your current stock listings 
and keep a listing of stocks you have sold by the 
year, they were sold with all totals, profit and 
loss, and percentages. More than one person 
can use this program as long as the first three 
letters on both first and last name are not the 
same. The program is menu driven and will 
give you the option for either screen print or 
information to be printed on printer. 



Rush Check for $22.00 plus $3.00 shipping & handling to: 
Paparis Enterprises 
700 York St. 

Williamsburg, VA 23185 
Please allow 2-3 weeks for delivery 
Sorry no CO.D.S 
VA rcsiiicnls add 4.5% sales tax. 
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120 G$="BR3BUFR3U3L2BL2D2U4ER3BD 

6BR15 

130 H$="BR3U6D3R4U3D6BR13 

140 I$="BR3R4L2U6L2R4BD6BR13 

150 J$="BR3BUFR2EU5BD6BR14 

160 K$="BR3U6D3RE3G3F3 

170 N1$="BR5R3LU6G2BD4BR3 

180 N2$="BR5NR4U2ER2EUHL2GBD5BR2 

190 N3$="BR5BUFR2EUHLREUHL2GBD5B 

R2 

200 N4$="BR7U6G3R4BD3 

210 N5$="BR5BUFR2EUHL2HU2R4BD6 

220 N6$="BR5BUFR2EUHL2GDU4ER2FBD 

5 

230 N7$="BR6UE3U2L4DBD5BR3 

240 N8$="BR5BRR2EUHL2GDFHUEHUER2 

FDGFDBD 

250 N9$="BR5BUFR2EU4HL2GDFR3BD3 

260 CLS:PRINT@41, "function keys" 

:POKE1073,32 

270 PRINT® 102, "y PAINTS SQUARE Y 

ELLOW 

280 PRINT®134, "r PAINTS SQUARE R 

WT) 

290 PRINT®166,"b PAINTS SQUARE B 

LUE 

300 PRINT® 198, "g PAINTS SQUARE G 

REEN 

310 PRINT®230, "n STARTS NEW GRID 

320 PRINT®262, "e ENDS GRID PROGR 
AM 

321 PRINT®294, "a ANIMATES PICTUR 
ES" 

322 PRINT®326,"d ALLOWS DISK OPE 
RATION" 

323 PRINT®358,"s SELECTS FRAME T 
EDIT" 

333 PRINT®422, "ARROW KEYS MOVE C 

URSOR" 

340 PRINT®486, "HIT ANY KEY YO BE 

GIN"; 

350 FOR X=1510 TO 1629 :POKEX, PEE 

K(X)-64:NEXT 

360 EXEC 44539 :GOSUB370:GOTO500 

370 PM0DE3 , 1 : PCLS : SCREEN 1 , 

380 DRAW"BM0.0R248D190L248U190 

390 DRAW"BM22. 8"-^A$-fB$+C$+D$-fE$-»- 

F$+G$+n$+I$+J$+K$ 

400 DRAW"BM2,23"+N1$ 

430 DRAW"BM2,43"+N2$ 

420 DRAW"BM2,63"+N3$ 

430 DRAW"BM2,83"+N4$ 

440 bRAW"BM2, 103"+N6$ 

450 DRAW-BM2, 123"+N6$ 

460 DRAW"BM2, 143"+N7$ 

470 DRAW"BM2, 163"+N8$ 

480 DRAW"BM2, 183"+N9$ 

490 DRAW"BM0. 10R248D20L248D20R24 

8D20L248D20R248D20L248D20R248D20 

L248D20R248BM16,0D190R22U190R21D 

190R21U190R21D190R21U190R21D190R 

21U190R21D190R21U190R21D190":RET 
URN 

500 P=PPOINT(H,V):DRAW"BM=H;,=Y; 

C3R 

510 L$=INKEY$:IF L$=""THEN 510 

520 W$=:"BM=H;,=V;C"+STR$(P) + "R": 

DRAW W$ 

530 IF L$=:CHR$(10)THEN V=V-»-20 

640 IF L$=CHR$(94)THEN V=V-20 

550 IF L$=CHR$(9)THEN H=H4.21 

560 IF L$=CHR$(8)THEN H=H-21 

570 IF L$="N"THENGOSUB 370 

580 IF L$="E"THEN CLS:GOTO680 

590 IF L$="Y"THEN LINE(H-8. V-10) 

-(H+9, V+8) , PRESET, BF: PAINT (H-i-2, V 

+2), 2, 4 

600 IF L$="B"THEN LINE(n-8, V-10) 

-(H+9, V+8), PRESET, BF:PAINT(H+2.V 

+2), 3, 4 

610 IF L$="R"THEN PAINT(H+2. V+2) 

. 4, 4 

620 IF L$="G"THEN LINE(H-8, V-10) 

-(H+9, V+8), PRESET. BF 
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621 IF L$="S"THEN 700 

622 IFL$="A" THEN820 

623 IFL$="D"' THEN 060 
630 IF H>237 THEN H=27 
640 IF H<27 THEN H=237 

65? IF yM51 TllEti Y^Zl 

660 IF V<21^THEn"v=181 

670 GOTO 500 

680 CLS:IFP1=230 THENPOKE65496,0 

690 END 

700 GOSUB800 : PM0DE3 , 5 : SCREEN 1,0: 

G=0:H=0 

710 GET(G,H)-(G+43,H+35),A1,G:C0 

L0R4, 1:LINE(G,H)-(G+43.H+35).PSE 

T,B:C0L0Rl,l:LINE(G,H)-(G+43,H+3 

5).PSET,B:PUT(G,H)-(G+43,H+35),A 

1,PSET 

720 L$=INKEY$:IFL$=""THEN710 

730 IF L$=CHR$(94) AND H<>0 THEN 

H=H-36 ELSE IF L$=CHR$(10) AND 
H<140 THEN H=H-i-36 
740 IF L$=CHR$(8) AND G<>0 THEN 
G=G-44 ELSE IFL$=CHR$(9) AND G<1 
70 THEN G=G-i-44 
750 IFL$<>CHR$(13) THEN710 
760 GOSUB370:Q=G:W=H 
770 A1=W:A2=Q:F0R Y=20 TO 180 ST 
EP20:FOR X=27 TO 237 STEP 21 
780 PMODE3,5:P=PPOINT(Q,W):Q=Q+4 
: PM0DE3 , 1 : PAINT ( X . Y ) , P , 4 : NEXT : W= 
W+4 : Q= A2 : NEXT : Q= A2 : W= A 1 
790 H=132:V=101:GOTO500 
800 A1=W:A2=Q:F0R Y=20 TO 180 ST 
EP20:FOR X=27 TO 237 STEP 21 
810 PM0DE3, 1:P=PP0INT(X,Y):PM0DE 
3.5:SCREEN1,0:PSET(Q.W.P):PSET(Q 
+2, W,P) :PSET(Q,W+1,P) :PSET(Q, W+2 
,P):PSET(Q,W+3,P):PSET(Q+2,W+1,P 
):PSET(Q+2,W+2,P):PSET(Q+2.W+3,P 
) : Q=Q+4 : NEXT : W=W+4 : Q=A2 : NEXT : Q=A 
2 :W=A1: RETURN 

820 PM0DE3,1: SCREEN 1,0:PCLS1 
830 H1=106:V1=78:H2=H1+43:V2=V1+ 
35:COLOR4, 1 :LINE(Hl-2, Vl-1 )-<H2+ 
2.V2+l),PSET,BF:FOR Y=0 TO 170 S 
TEP36:FOR X=0 TO 219 STEP 44 
840 PMODE3,5:GET(X,Y)-(X+43,Y+35 
) . Al , G : PM0DE3, 1 : SCREENl , 0: PUT(H1 
, VI )-(H2,V2),Al,PSET: NEXT: NEXT 
850 H=132:V=101:aOSUB370:GOTO770 
860 SCREEN0,0:CLS: PRINTED SAVE 
GRAPHICS" :PRINT"2) LOAD GRAPHICS 
":PRINT"3) EXIT":INPUT"SELECTION 
••;W$ 

870 IFW$="1"THEN8O0 ELSEIFW$="2" 
THEN910 ELSEIFW$=:"3"THENH = 132:V=: 
101:GOSUB370:GOTO500 ELSE860 
880 IFP1=230 THEN POKE65496,0 
890 CLS:PM0DE3. 1:F0RA1=1 TO 4:PC 
OPY Al+4 TO A1:NEXT:VERIFY0N:INP 
UT"FILENAME";W$:SAVEM W$, 3584, 97 
27,3584: IFP1=230 THENP0KE65497. 
900 GOSUB370:GOTO500 
910 IFP1=230 THENPOKE65496.0 
920 CLS: INPUT-LOAD FILENAME* ;W$: 
LOADM W$:F0RA1=1 TO 4:PC0PY Al T 
A1+4:NEXT:PMODE3,5:SCREEN1,0:G 
=0:H=0: IFP 1=230 THENPOKE65497, 
930 GOTO710 



Entries must be mmiled 
to: 



CoCo Clipboard Magazine 

CONTEST 

3742 U.S. 20, Box 3 

Fredonia, NY 14063 



10 'BASIC PROGRAMMING CONTEST 

20 'BILL BILL BERNICO 

30 'AND GEORGE AFTAMONOW 

40 ' 

50 CLEAR 500:H=:132:V=101 

60 A$="BR3U4E2F2D2L4R4D2BR15 

70 B$="BR3R3L3U6R3FDGL3R3FDGBR14 

80 C$="BR3BUFR3L3HU4ER3BD6BR15 

90 D$="BR3R3L3U6R3FD4GBR14 

100 E$="BR3R4L4U3R3L3U3R4BD6BR15 

110 F$="BR3U3R3L3U3R4BD6BR13 

120 a$="BR3BUFR3U3L2BL2D2U4ER3BD 

6BR15 

130 H$="BR3U6D3R4U3D6BR13 

140 I$="BR3R4L2U6L2R4BD6BR13 

150 J$="BR3BUFR2EU5BD6BR14 

160 K$="BR3U6D3RE3G3F3 

170 N1$="BR5R3LU6G2BD4BR3 

180 N2$="BR5NR4U2ER2EUHL2GBD5BR2 

190 N3$=:"BR5BUFR2EUHLREUHL2GBD5B 

R2 

200 N4$="BR7U6G3R4BD3 

210 N5$="BR5BUFR2EUHL2HU2R4BD6 

220 N6$="BR5BUFR2EUHL2GDU4ER2FBD 

5 

230 N7$="BR6UE3U2L4DBD5BR3 

240 N8$="BR5BRR2EUHL2GDFHUEHUER2 

FDGFDBD 

250 N9$="BR5BUFR2EU4HL2GDFR3BD3 

260 CLS:PRINT®41, "hot and cold": 

POKE1072,32:POKE1068,32 

262 PRINT®101, "BY GEORGE AFTAMON 

OW":PRINT®134, "AND BILL BERNICO" 

264 PRINT@192. "BENEATH ONE OF TH 

E SQUARES LIES A TREASURE. TRY T 

FIND IT IN ASFEW MOVES AS POSS 

IBLE.THE CLOSER YOU GET, THE HIG 

HER THE PITCH. " 

266 PRINT®454, "HIT aNY KEY TO CO 

NTINUE":FORQ=1TO50:NEXTQ:PRINT®4 



58, "AnY KEY"; :FORQ=1TO50:NEXTQ:P 
RINT®458, "ANy KEY"; :FORQ=1TO50: N 
EXTQ:PRINT0458, "ANY KEY"; :F0RQ=1 
TO50:NEXTQ:PRINT®458, "ANY KeY"; : 
FORQ=1TO50:NEXTQ 

267 PRINT®458, "ANY KEy" ; :F0RQ=:1T 
O50:NEXTQ:PRINT®458, "ANY KeY"; :F 
ORQ=1TO50:NEXTQ:PRINT®458, "ANY k 
EY"; :FORQ=1TO50:NEXTQ:PRINT®458, 
"ANy KEY";:FORQ=1TO50:NEXTQ:PRIN 
T®458, "AnY KEY"; :FORQ=1TO50 

268 L.t=INKEY$:IFL$=""THEN266 

269 CLS 

270 PRINT®102, 
ELLOW 

280 PRINT0134, 
ED 

290 PRINT&166, 
LUE 

300 PRINT0198, 
REEN 

320 PRINT®258, 
ABOVE KEYS"; 
330 PRINT«321, 

MOVE CURSOR 
340 PRINT®486, 
GIN"; 



"y PAINTS SQUARE Y 
"r PAINTS SQUARE R 
"b PAINTS SQUARE B 
"g PAINTS SQUARE G 
"PRESS ONE OF THE 
"USE ARROW KEYS TQ 
"HIT ANY KEY TO BE 




Listing Cont. 
Page 30 
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Magnavox 

8CM515 

analog rgb monitor w/cabie 

DELIVERED 



JTiroTxn 



iesxr Villa 



^^^S**.?®^®?^"^-*-® ^^ Color, Composite Color (for 
PMODE 4) and green text screen. RGB cable 
included in the price. Also watch your VCR on 
this monitor for fantastic color! 

Certified Check or Money Order only. 
Computer Villa 1328 48th. 
Des Moines, Iowa 50311 
Canadians add $8.00 
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CoCo Club Corner 



Ted Paul 



THIS has been the column thats 
been too long in coming. 
Originally scheduled for Spec- 
trogram Magazine, CoCo Club Corner 
is now a reality. Clipboard Mag- 
azine wants to be able to provide 
reliable listings of active and 
helpful CoCo clubs in the United 
States and Canada. We've listed a 
large number of clubs in this first 
edition of the magazine. While we 
had hoped for more detailed in- 
formation on each group, time and 
space limitations have made this 
abbreviated format necessary. All 
ofthe BBS's and newsletters were 
verified as of 12/4/87 and should 
be in operation by the time you 
read this. 

Naturally any endeavor of 
quality needs cooperation and 
input. To those clubs who have sent 
in the CoCo Club registration form 
we send our thanks. To those of you 
who have not. or have just started 
a club, we want and need your 
participation. To obtain a regis- 
tration form for Clipboards CoCo 
Club Corner please send a stamped, 
self addressed envelope to: 

CoCo Club Corner Registration 
c/o Ted Paul 
3742 U.S. 20, Box 3 
Fredonia, New York 14063 

I will send out a registration 
form the day I receive^ your 
request. 

I need to take just a little 
time at this point to explain what 
"Received and Verified" means in 
these articles. "Received" means 
that I've received a filled out 
registration form from a club. 
"Verified" means that I've con- 
tacted a person at that club and 
I've received a copy of a news 
letter. If offered, and made 
contact with a BBS if listed. It 
also means that in those conver- 
sations I've learned a lot about 
that CoCo club and the people 
involved. 

What "Received and Verified" 
does not mean : 

1. Neither I, nor CoCo Clipboard 
Magazine, it's writers, advertisers 
or publishers make or give any 
warranty implied or otherwise as to 
the suitability of services pro- 
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vided by the clubs listed in these 
articles. We cannot guarantee that 
any club will still be in existence 
or even at the same address by the 
time you read this article. We will 
hold the lead time between this 
desk and Clipboards print dealine 
in to the shortest possible. This 
will help to insure accurate and 
timely information. 

2. We do not and cannot condone 
the piracy of software. However we 
can't control what takes place at a 
club meeting or what is on a BBS. I 
will remove a club from the 
magazines listing if I find soft- 
ware piracy supported by club 
activites, and it is my hope that 
this forum will not be used by some 
people to further their "swapping" 
habits. Wo all lose when piracy 
happens and their is no argument 
under Gods blue sky that justifies 
it. 'Nuff said. 

EAST COAST - U.S.A. 

Club Name : Island CoCo Club 
Address : P.O. Box 901 

Bellmore, N.Y. 11710 
BBS Phone : none 
Newsletter: Out of Area Member 

$15.00 1st. year. 

Renewl $7.50 
Dues : Individual ^Family 

Rates from $35.00 

1st year 

For those of you in the 
Metropolitan New York area our 
first East Coast CoCo Club in the 
spotlight is the Island CoCo Club. 
Club interests include graphics, 
OS-9, Telecommunications, games and 
adventures, ML programming and many 
others. Technical information and 
programming tips were in abundance 
in this newsletter. President D.K. 
Lee was also kind enough to post 
information on Clipboard on their 
BBS. So if you are a Clipboard 
reader in the greater NYC area or 
from just about anywhere else 
you'll find help and information at 
the "Island CoCo Club. " 

Ohio Valley - U.S.A. 

Club Name : The Color Computer 

Club, Inc. 
Address : P.O. Box 478 

Canfield, Ohio 44406 
BBS Phone : (216) 792-9745 



Newsletter: Yes. Included with 

$15.00 year membership 
fee. 

Larry Cadman and his fellow 
CoCo cohorts in Canfield are run- 
ning a pretty slick BBS, newsletter 
and club. The BBS runs smoothly and 
quickly and is on line 24 hours, 7 
days at 7 bit, 300 baud. Their 
newsletter "C3 Crier" features news 
from Tandy, Club news, humor column 
and hints and tips. Club meetings 
are at the Hardees restaurant in 
Canfield - call the BBS for 
details. 
South - U.S.A. 

Club Name : Color Computer Club of 

South Brevard 
Address : 644 Dianne Dr. 

Melbourne, Florida 

32935 
BBS Phone : none 
Newsletter: Monthly Included with 

dues of $1.00 a month 

or $12.00 year 

Meeting at the Eau Gal lie 
Library, the Color Computer Club of 
South Brevard is typical of many 
smaller CoCo clubs around the 
country. They publish a small but 
neatly done newsletter with 
graphics, club news, member list- 
ings and upcoming events. Contact 
David Simmons at the above address 
for complete information and up- 
dates . 

Central - U.S.A. 

Club Name : Glenside Color Computer 

Club of Illinois 
Address : 8 W. Stevenson Dr. 

Glendale Heights, 

Illinois 60139 
BBS Phone : (312) 307-1519 

7 days/24hours 

Newsletter: Yes 
Dues : $10.00 (check for 

current rate) 




CoCo 'N Amateur Radio 



Mike Dooley 



In our . last installment (in 
this continuing saga) we were 
looking at using the CX)CO to 
operate Packet Radio. We had just 
connected the COCO to the TNC 
(Terminal Node Controller), turned 
on the TNC, and a Sign On screen 
should have been displayed on the 
(X)C0'8 display. 

If you didn't get the Sign On 
screen, what did you get? Nothing? 
Recheck the connectors and be sure 
they're wired properly. If you pur- 
chased your cable (instead of 
building) remember, pin 8 must be 
connected to pin 20 on the end 
connected to the Program Pak! Also, 
be sure everything is turned on. 

If you got garbage on the 
screen, the most likely cause is 
different bit rates between the TNC 
and the COCO. Both should be 300 
bits per second (or whatever you 
chose). Hopefully you now have the 
COCO talking to the TNC. Let's see 
what the TNC can tell us. 

There are many options that 
can be changed in the TNC. To see a 
list type the following: 

DISPLAY (CR) 

CR means press the ENTER key 
on the COCO. A whole raft of things 
will scroll onto the screen. It is 
beyond the scope of this series to 
cover what each option means, but 
there are several we need to set 
before getting on the air. 

First is the MYCALL option. At 
the ' Cmd : ' prompt type : 

MYCALL XX4YY (CR) 

The XX4YY is your Amateur Call 
sign. To see if the TNC took the 
information type: 

MYCALL (CR) , 



The TNC should respond with: 
'MYCALL XX4YY' or whatever your 
call is. Next, we need to tell the 
TNC how many characters the lines 
on the screen of our COCO will hold 
(32). To do this type: 



Again, to see if the TNC took 
this information type: 



SCREENLN (CR) 

The TNC should 
'SCREENLN 32'. 



respond with: 



Last, we . need to set the 
length of the packet to be sent. 
The TNC comes set for a PACLEN of 
128. Let's make it 80. Type: 

PACLEN 80 (CR) 

Did the TNC take this infor- 
mation? I'll let you find out 
yourself. 

The only other connection re- 
quired to operate Packet is between 
the TNC and radio. This connection 
will be different for various makes 
of radios. The primary connections 
are: 



1) Audio out 
of the radio. 



to the Mic input 



2) Audio in from the earphone 
jack of the radio (or some other 
audio source from the radio). 



3) PTT (Push To 
key the transmitter) 



Talk used to 



SCREENLN 32 (CR) 



The various pin connections 
between the radio and TNC are 
different for different brands of 
radios. When hooking up to your 
radio, follow the instructions in- 
cluded with the TNC and/or advice 
of a fellow amateur who has done 
the same thing. If you need further 
help, call the manufacturer of the 
TNC I They should have the con- 
nection information you need and 
are usually glad to help. 



I do have one word of warning. 
On some Handy Talkies the external 
speaker connection has a DC voltage 
on it. Connecting this DC voltage 
directly to the Audio in of the TNC 
won't necessarily injure the TNC. 
but it may injure the radio. My 
Yeasu FT208R now has a dead 
internal speaker because of my 
haste to get on packet. 

Now, turn on your radio and 
tune it for 145.01 Mhz (FM). Adjust 
the volume so the DCD LED on the 



front of the TNC is flickering. At 
the 'CMD:' prompt on the display 
type: 

MONITOR ON (CR) 

If there is Packet activity in 
your area, data should start 
filling the screen. If you really 
want to get involved, check with 
one of your Amateur radio friends 
about any local Bulliten Boards or 
Digipeaters you can access with 
Packet radio. Bulliten Boards and 
Digipeaters? Sounds like something 
for the next installment of this 
column. . . . 73' s 



fps 



For the Coco User who 
has Everylhing . . . 

niCUSE CDUER HIT - contaihs 

EYERYTHIMO YOU MEED TO MAKE A 
COVER FOR YOUR MOST IMPORTANT 
•GRAPHICS TOOL EASY IMSTRUCTIOMS 
AND QUICK A3SEMBLV 
YOU'VE SEEM THIS 
MOUSE BEFORE ! 

CDCD UCEnSE PLATE- SHOW 

EVERYONE HOW YOU FEEL ABOUT 
YOUR FAVORITE COMPUTER. 
DRESS UP YOUR CAR 
OR COMPUTER ROOM. 

$2.R5 



\ 




essD 



CDCD in STITCH -EIGHT cross 

STITCH PATTERNS WITH THREE 
FONTS. EACH PATTERN IS COC 
RELATED AND CAM BE 
STITCHED ON ANY 
COUNT CLOTH. 



COME SEE US 
AT RAIMfcOWFEST 
CHICAGO ! 




4810 ITlcCrory Hve? 



memphis, Til 38122 t 
901-632-8737 -I 



ADD S3.00 FOR SHIPPiNO AND HAHDLINO. 

CASH, CHECK, OR MONEY ORDERS ONLY ! 

PLEASE, NO COOS OR CREDIT CARDS. 
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Clubs Con"t. 



I could do a whole column just 
on Glenside. President Ed Hathaway 
and Glenside have been the host 
club for the annual 'Fest gathering 
in Chicago each year, publish 
programs in conjunction with Howard 
Medical Computers, run demos at 
their local shopping center, run 
the BBS, publish a jam packed 
newsletter, etc. etc. Whether you 
live in the greater "Chicago- land" 
area or are from out of town the 
Glenside club does a terrific job. 

Mid-West - U.S.A. 

Club Name : Mid Iowa CoCo 
Address : 529 10th St. 

Des Moines, lA 50265 
BBS Phone : (515) 279-0086 23.5 

hours a day/ 7 days 
Newsletter: Yes - no price info 

available as of this 

writing. 

People in Iowa are pretty 
lucky folk - espcially those with 
Color Computers. Mid Iowa CoCo Club 
prints a nifty newsletter with spot 
color and loads of hints and tips. 
They also provide advertising, 
reviews of products and good solid 
information. The club meets at the 
West Des Moines Library on Grand 
Ave. 

Well that's it for this CoCo 
Club Corner. 



Genealogy Listing 
Con-tinued 

+X$+" (No.- -I- STR$(INDX(SIDE) 
)+ ")•• : RETURN 

1100 '**3|C**********J|C«3|C***:«C**** • 

1101 '* PREPARE A BIRTHPLACE * 

1102 ' **********«**«**»3|c;|c«**** 

1105 IF INDX(SIDE) AND 1 THEN PR 
$(SIDE)= " \" 

1110 PR$(SIDE)= PR$(SIDE)+ "at " 
+AR$(CUR, 2) : IF INDX(SIDE) <I 
NDX(0) *4 OR INDX(SIDE)> (INDX(0 
) *2+l) *2+l THEN 1140 
1120 SPACESr (PA-3)/2-l -LEN(PR$ 
(D) : IF SPACES <0 THEN SPACES 
=0 

1130 PR$(1)= PR$(1)+ STRING$(SPA 
CES, 45) +-<" 
1140 RETURN 

1200 '***************«***;K;((j|C**** 

1201 '* PREPARE A DATE OF DEATH 

1202 '***************««*;|c**)»c**** 

* 

1205 IF NOT INDX(SIDE) AND 1 THE 

N PR$(SIDE)= - /" 

1210 X$= AR$(CUR, 3) : G05UB 160 

: PR$(SIDE)= PR$(SIDE) +"Died 

" +X$ : IF SIDE=1 THEN 1240 ELSE 

PR$(2)= PR$(2) +" (Cont. " 
1220 IF PG=1 THEN PR$(2)= PR$(2) 

+"Page"+ STR$(CUR-6) +')" ELSE 
PR$(2)= PR$(2) +"Chart ft ) ** 
1230 RETURN 

1240 IF L0(3) =0 THEN IF CUR= IN 
DX(0) THEN PR$(1)= PR$(1) +" (Sa 
me as 9" ELSE 1270 ELSE RETURN 
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1250 IF PG <2 THEN PR$(1)= PR$(1 
) +" on chart tt )" ELSE PR$(1) 
= PR$(1)+ STR$(CUR) +" on page 1 

1260 RETURN 

1270 PR$(1)=: PR$(1) 4" (Spouse 

of #"+ STR$(INDX(0)) +")•• : RETU 

RN 

1300 ' ********>»C)«C**)»f*****»****3»C«* 

1301 '* PREPARE PLACE OF DEATH; 

1302 '* CALCULATE NEXT RECORD » 

1303 '* FOR LEFT SIDE OF PAGE 
}*: 

1304 '****************«********* 
}»: 

1305 IF NOT INDX(SIDE) AND 1 THE 
N PR$(SIDE) =" / •• 

1310 PR$(SIDE)= PR$(SIDE) +"at " 
-»- AR$(CUR, 4) : IF SIDE=1 THEN R 
ETURN ELSE WH(1) =0 
1320 READ L0(1). L0(2), L0(3) : 
IF L0(1) <0 THEN INDX(1)= INDX(0 
)- 2* (INDX(0) AND 1) +1 : RETUR 

1340 INDX(1)= INDX(0) : FOR Z = 
1 TO 3 : IF Z> L0(3) THEN RETURN 
ELSE INDX(1)= INDX(l) *2 +LO(Z) 
1350 NEXT Z 

1400 '*******5»c>»c:»:j(c**)»:*)»c»j|cj,c:|c***«** 
**. 

1401 '* PREPARE DATE OF MARRIAGE 

1402 '♦J*:************************ 
)»:« 

1405 IF INDX(SIDE) AND 1 THEN 15 
00 ELSE X$= MAS (CUR/2) 
1410 GOSUB 1600 : PR$(SIDE)= "/ 
Married " -i-X$ : RETURN 

1500 '*********************»**** 
« 

1501 '* CALCULATE NEXT RECORD U 

1502 '* FOR RIGHT SIDE OF PAGE 
* 

1503 ' ********5».**************)|c*;|c 

1505 IF SIDE=2 AND INDX(SIDE) < 
INDX(0) *8-»-7 THEN WH(2) =0 ELSE 
WH(SIDE) =6 

1510 INDX(SIDE)= INDX(SIDE) +1 : 
RETURN 

1600 '******3»:**)»:*******«*j|c*3(c*3|c*« 
*** 

1601 '* INSERT SLASHES INTO DATE 
S * 

1602 '**********)»c;»:*****3»:j|c*«*)|c*)|c* 

1605 X$= X$ 4 " 

1610 X$= LEFT$(X$, 2) +"/"•»- MID$ 

(X^. 3. 2) +"/"+ MID$(X$. 5, 4) 

: RETURN 

2000 X$= INKEY$ : IF X$ <"1- OR 

X$> "2" THEN 2000 ELSE RETURN : 

'Get a menu choice routine 

2100 FOR FLD = TO 4 : PRINT »D 

EV, AR$(X. FLD) : NEXT FLD : RET 

URN : 'Save a field routine 



Con"test Listing 
Continued 

350 FORX=1510 TO 1529: POKE X, PEE 

K(X)-64:NEXT 

360 EXEC 44539 

370 PMODE 3, 1:PCLS: SCREEN 1.0 

380 DRAWBM0,0R24OD190L248U190 

390 DRAW-BM22, 0"-»-A$-fB$+C$+D$+E$+ 

F$+G$+H$+I$fJ$4K$ 

400 DRAW"DM2,23"+N1$ 

410 DRAW"BM2,43"+N2$ 



420 DRAW"BM2.63"+N3$ 

430 DRAW"BM2,83"+N4$ 

440 DRAW"BM2, 103"-fN5$ 

450 DRAW-BM2, 123"4N6$ 

460 DRAWBM2, 143"+N7$ 

470 DRAW"BM2.163"-fN8$ 

480 DRAWDM2, 183"+N9$ 

482 XH=RND(10)*21+27 

485 YV=RND(9)*20+1 

490 DRAW"DM0, 10R248D20L248D20R24 

8D20L248D20R248D20L248D20R248D20 

L248D20R248BM16,0D190R22U190R21D 

190R21U190R21D190R21U190R21D190R 

21U190R21D190R21U190R21D190 

500 DRAW"DM=H;,=V;C3R 

510 L$=INKEY$:IF L$=*'"THKN 510 

520 DRAW"BM=H;,=:V;C1R 

530 IF L$=CHR$(10)THEN V=V+20 

540 IF L$=CnR$(94)THEN V=V-20 

550 IF L$=CHR$(9)THEN H=H+21 

560 IF L$=CHR$(8)THEN H=H-21 

590 IF L$="Y"THEN LINE(H-8, V-10) 

-(H+9, V+8) , PRESET, BF: PAINT(H+2, V 

+2), 2. 4 

600 IF L$="B"THEN LINE(n-8, V-10) 

-(H+9, V+8 ) , PRESET, BF: PAINT(H+2, V 

+2), 3, 4 

610 IF L$="R"THEN PAINT(H+2, V+2) 

.4,4 

620 IF L$="G"THEN LINE(H--8, V-10) 

-(H+9,V+8), PRESET, BF 

630 IF H>237 THEN H=27 

640 IF H<27 THEN H=237 

650 IF V>181 THEN V=21 

660 IF V<21 THEN V=181 

665 IFL$="Y" ORL$="R" ORL$="B" 
RL$="G"THEN666ELSE500 

666 SC=SC4-1 

670 IFYV=V AND XH=H THEN800 

700 IF (ABS(V-YV)<20 AND ABS(H-X 

HX20) THENSOUND255, 10:GOTO500 

710 IF (ABS(V-YV)<30 AND ABS(H-X 

H X 20 ) THENSOUND200 , 10 : GOTO500 

720 IF (ABS(V-YV)<40 AND ABS(H-X 

HX40) TnENSOUND100, 10:GOTO500 

730 IF (ABS(V-YV)<50 AND ABS(H-X 

HX50) TnENSOUND50, 10:GOTO500 

740 SOUND 1, 10: GOTO500 

800 CLSRND(8): PRINT® 105. "YOU FOU 

ND IT" ; : PRINT®170, "IN" ; SC; "MOVES 

" ; : F0RQ=1T05 : PLAY"T200O3GEAGEAGE 

A":NEXTQ 

810 PRINT0359. "PLAY AGAIN? (Y/N) 

820 L$=INKEY$: IFL$=""THEN820ELSE 
IFL$="Y"THENSC=0:GOTO370ELSECLS: 
END 



10 'BASIC PROGRAMMING CONTEST 

20 'BY BILL BERNICO 

30 'AND ELLEN AFTAMONOW 

40 ' 

50 CLEAR 500:H=132:V=101 

60 A$="BR3U4E2F2D2L4R4D2BR15 

70 B$="BR3R3L3U6R3FDGL3R3FDGBR14 

80 C$="BR3BUFR3L3HU4ER3BD6BR16 

90 D$="BR3R3L3U6R3FD4GBR14 

100 E$="BR3R4L4U3R3L3U3R4BD6BR15 

110 F$="BR3U3R3L3U3R4BD6BR13 

1 20 G$= "BR3BUFR3U3L2BL2D2U4ER3BD 

6BR15 

130 H$="BR3U6D3R4U3D6BR13 

140 I$="BR3R4L2U6L2R4BD6BR13 

150 J$="BR3BUFR2EU5BD6BR14 

160 K$="BR3U6D3RE3G3F3 

170 N1$="BR5R3LU6G2BD4BR3 

180 N2$="BR5NR4U2ER2EUnL2GBD5BR2 

190 N3$="BR5BUFR2EUHLREUHL2GBD5B 

R2 

200 N4$="BR7U6G3R4BD3 

210 N5$="BR5BUFR2EUHL2HU2R4BD6 

220 N6$="BR5BUFR2EUHL2GDU4ER2FBD 

5 

230 N7$="BR6UE3U2L4DBD5BR3 



240 N8$="BR5DRR2EUHL2GDFHUEHUER2 

FDGFDBD 

250 N9$="*BR5BUFR2EU4HL.2GDFR3BD3 

260 CLS3:PRINT®131, "MUSIC MAKER" 

;:PRINT@199,"BY ELLEN AFTAMONOW" 

; :PRINT®268, "AND BILL BERNICO";: 

FORAA=1TO10: PLAY"T150L150O2EAO3E 

AEA05EA":NEXT 

270 CLS: PRINT: PRINT "CREATE A PAT 

TERN AND LISTEN TO ITS SOUND. E 

ACH SQUARE HAS ITS OWN NOTE. Til 

E LENGTH IS THE COLOR. WHEN 

YOU WANT TO HEAR THETUNE, PRESS 

p. •':PRINT®452,"PRESS ANY KEY TO 

CONTINUE" : EXEC44539 

280 CLS :PRINTQ41, "function keys" 

:POKE1073,32 

290 PRINT® 102, "y PAINTS SQUARE Y 

ELLOW 

300 PRINT0134. "r PAINTS SQUARE R 

ED 

310 PRINT®166,"b PAINTS SQUARE B 

LUE 

320 PRINT»198,"g PAINTS SQUARE G 

KEEN 

330 PRINT®262."p PLAY YOUR SONG 

340 PRINT®326, "ARROW KEYS MOVE C 

URSOR 

350 PRINT®486, "HIT ANY KEY TO BE 

GIN"; 

360 FORX=1510 TO 1529: POKE X.PEE 

K(X)-64:NEXT 

370 EXEC 44539 

380 PMODE 3, 1:PCLS: SCREEN 1,0 

390 DRAW"BM0.0R248D190L248U190 

400 DRAW"BM22, 8"-»-A$+B$+C$+D$+E$+ 

F$+G$+H$+I$+J$+K$ 

410 DRAW"BM2,23"4.N1$ 

420 DRAW"BM2,43"-i-N2$ 

430 DRAW"BM2,63"+N3$ 

440 DRAW"BM2,83"-»-N4$ 

450 DRAW-BM2. 103"+N5$ 



460 DRAW-BM2, 123"+N6$ 
470 DRAW"BM2. 143"+N7$ 
480 DRAW"BM2, 163"+N0$ 
490 DRAW"BM2, 183"+N9$ 
500 DRAW"BM0, 10R248D20L248D20R24 
8D20L248D20R248D20L248D20R248D20 
L248D20R248BM16.0D190R22U190R21D 
190R21U190R21D190R21U190R21D190R 
21U190R21D190R21U190R21D190 
510 DRAW"BM=H;,=:V;C3R 
520 L$=INKEYS:IF L$=""THEN 520 
530 DRAWBM=H;,=V;C1R" 
540 IF L$=CHR$<10)TUEN V=V420 
550 IF L$=CHR$(94)THEN V=V-20 
560 IF L$=CHR$<9)THEN H=H-f21 
570 IF L$=CHR$(8)THEN H=H-21 
580 IF L$="P"THEN750 
590 IF L$="Y"THEN LINE(H-8. V-10) 
-(H+9, V48), PRESET, BF:PAINT(H+2,V 
+2).2,4:LE.$="2" 

600 IF L$="B"THEN LINE(H-8. V-10) 
-(H+g.V+S), PRESET. BF:PAINT(H+2,V 
•f2).3,4:LE$="4" 

610* IF L$="R"THEN PAINT(H+2, V+2) 
,4.4:LE$="6" 

620 IF L$="G"THEN LINE(H-8. V-10) 
- (H+9,V-»-8). PRESET. BF:LE$= "8" 
630 IF n>237 THEN H=27 
640 IF H<27 THEN H=237 
650 IF V>181 THEN V=21 
660 IF V<21 THEN V=181 
670 IFL$="R" OR L$="Y" OR L$="B" 
OR L$="G" OR L$="P" THEN680 ELS 
E510 

680 NH=INT((H-27)/20+l):NT=((V-2 
0)-»-NH*2) 

690 NZ$=STR$(NT):F0RX=2T0 LEN(NZ 
$) :NT$=NT$+MID$(NZ$, X, 1) :NEXT 
700 IF LEN(NT$)<3 THENNT$="0"-»-NT 
$ : GOTO700 

710 CT=CT+1:IF CT>80 THEN740ELSE 
IFCT>40 THEN730ELSE720 



720 S1$=S1$+NT$+LE$:NT$="":NZ$=" 

":GOTO510 

730 S2$=S2$+NT.1;+LE$:NT$="":NZ$=" 

":GOTO5I0 

740 S3$=S3$+NT;l;+LE$ : NT$=" " : NZ$=" 

":GOTO510 

750 F0RX=1T0 LEN(S1$) STEP4:EA=V 

AL(MID$(S1$.X.3)):GA=VAL(MID$(S1 

$, X+3 , 1 ) ) : SOUliDEA, GA: NEXTX : IFCT< 

40THEN780 

760 F0RX=1T0 Mi:N(S2$) STEP4:EA=V 

AL(MID$(S2$,X,3)):GA=VAL(MID$(S2 

$,X+3. 1)):S0UNDEA.GA:NEXT:IFCT<8 

0THEN780 

770 F0RX=1T0 LEN(S3$) STEP4:EA=V 

AL(MID$(S3$.X. 3)) :GA=VAL(MID$(S3 

$, X+3 , 1 ) ) : SOUMDEA, GA: NEXT 

780 CLS4:PRINTC§132, "D PLAY SONG 

AGAIN "; :PRINT@164, "2) COMPOSE 
NEW SONG";:PRINT®196, "3) END 

790 EXEC44539:L$=INKEY$:IFVAL(L$ 

)>3 THEN790 

800 IFL$="1" THEN750 

810 IFL$="2- THENS1$="":S2$="":S 

3$="":CT=0:GOTO380 

820 CLS: END 



Ted Paul of 

Dan Bobins of 

Ori Line? Coxrkde&itr^x:xG& Ori Tt^e 
oin Cc:>inx>^JLSe5xr"ve: 



Session » 1. Saturday January 9th and 9pin EST 
Hosted by Dan Robins of Computer Shopper and Ted 
Paul of CoCo Clipboard plus other well known 
CoCo experts. Help make this the largest on line 
conference on any database service. 

To get your account started on CompuServe call 
1-800-848-8990. 

See you Jamaary 9th. and each month thereafter 
on the 2nd Saturday pf_ the month. 



Finally 



An answer for America's dying teens! 

For your free copy of this dynamic and 

powerful book, call us today at 

1-800-VICTORY. 




Also; 

See and hear young people who have 

already found the answer at 

Freedom Village, USA in Lakemont, N.Y. 

Check your local Christian 

radio and television stations for the 

Victory Today program. 

For more information write 

Freedom ViHage. USA Lakemont, NY 14857 
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ADS? 

ATTENTION! COCO SOFTWARE 
AN1> HARDWARE VENDORS 







ARE ADWBTISING RATES 
MAKING YOUR HAIR STAND ON END? 

WE HAVE AD RATES YOU CAN .AFFORD 

Lot us help you to aariket your 
product vlthout having ' 
to p&y &ti am and a leif. 

For Information write or , 
call our office , 
at (716)678^126 



Monday-Friday $ain-2pm' Z*^'' 
Saturday dam-epra^;, ■-, 
CoCo ./J , ;"\- 

cupboard MagazintiS! I 

3742 as: 20 Box 3^*' ''~ -- " '-'^''. " ; 
rrcdonia7ri.y. 14063 ~ ' ~ V," , " , 
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Self Correcting Forecasting 



Jim DeStafeno 



Self Correcting FORECASTING 

Sandra was saying to Younger, 
"We better get going; the bell's 
going to ring in a minute. Look at 
Rubin, he hasn't moved in ten 
minutes." They collected the note 
papers that were spread across the 
library table and put them in the 
project book she had made, and 
walked over to the table where 
Rubin was sitting. "Come on Rubin, 
it's time to go. " There was no res- 
ponse. Sandra ran her fingers 
through his black curly hair. He 
looked up with a pained expression. 
"Come on Rubin, it's time to go." 
"Oh. hey you guys, I think I've 
found it. " "Found what?" "You know, 
remember I said there should be 
someway to cause the formula to be 
self correcting? See here, pointing 
to the book he had been reading, he 
changes the value of an exponent to 
a constant that is calculation from 
the average error of the previous 
calculations. How are you guys 
do' en on a calculation formula?" 

"Well it looks like the 
regression formula you found will 
solve for the answer we want, but 
it will take too long to get an 
answer by hand; we've got to put it 
on the computer. And ..." Younger 
was interrupted by the bell. Sandra 
smiled at her thought, "Saved by 
the bell." She said, "Okay, lets 
go; we are going to meet at the 
math club tonight, right?" 

Mr. Teachit had asked George 
to tell the club what he had found 
out about his assignment, the 
averaging of percentages. He was 
saying. "It Just doesn't work, it's 
no good. I got to thinking about 
it, and a percentage is Just a 
special kind of average. So the 
averaging of several percentages is 
the averaging of averages. It means 
nothing and doesn't even work. 

Someone asked, "What do you 
mean it doesn't work?" "Well, if 
you have three different percen- 
tages, each being the result of the 
percentage calculation of four 
different numbers; for averaging of 
percentages to work, you would have 
to get the same percentage when you 
average the three percents as you 
get when you calculated the percent 
of the 12 numbers together. You 



don t. Look I'll put it on the 
board. " He did and sure enough he 
got two different answers. 

George then asked Mr. Teachit, 
"Why did^ you ask me to look at 
this?" "Well, when people are 
trying to figure out a way to 
forecast, like Younger is, they 
tend toward averages and percen- 
tages. We had to see that they 
won't work together. That was good 
work on your part George. " George 
beamed. Mr. Teachit then turned to 
Rubin, "I'm very interested to know 
if you came up with anything on 
self correcting formulas." "Yea, I 
think so. A guy by the name of", 
looking down at his notes, "Robert 
G. Brown, published by Holt, 
Rinehart and Winston of New York, 
has done a lot of work using 
exponents. I was Just reading his 
DgC i SJQn Rules For Tnvftnff^rY 

Managemgnt* '* "Exponents aye?" 
"Yea." "You've found the classic 
method. Brown is a little obtuse, 
but his detailed examples are very 
good. Do you think you can do 
something with it?" "Yes I do. " 

"Younger, how are you doing?" 
"Well Mr. Teachit, we are running 
into some complex stuff. " "Oh?" 
"Yea, it seems that to get any kind 
of real accuracy with least squares 
analysis you really have to get 
into the solution of simultaneous 
linear equations." "That's true, I 
suggest that you look into the book 
Rubin found. Brown shows computer 
applications of the formula. " 
"Okay!" Younger felt relieved. 
(On the side, it doesn't hurt to 
know a fellow by the name of Bob 
Laskin, either. He is hiding his 
light under a basket in South 
Jersey. He did more for me and math 
than all the teachers and pro- 
fessors I had, combined. A tip of 
my hat to Bob for his help. ) 
Mr. Teachit continued, "Now who 
would like to show the group the 
reasoning behind t6 use of 
simultaneous linear equations?. . . . 
Okay, let me help you. " 

After several false starts 
Younger and Sandra, or rather, 
Sandra and Younger came up with two 
programs. (They made quite a team, 
he was good at getting the idea of 
what was needed and she was better 
at writing the code to get the 



computer to do what was wanted. She 
was also good at getting Younger to 
take her to the Friday night school 
dances. ) 

The object of the two programs 
is to save 35 periods of usage 
history to disk, recall it at a 
later date, add the newest usoge^ 
demand (Making 36 periods to base 
the calculations on) and delete 
the oldest from the list, and of 
course to calculate a forecast of 
future usage. 

Due to limited space, wc coh 
only show Brown's formula; 
Forecast=al •»• a2t -i- a3 sin 30 t -♦• 
a4 cos 30 t + a5 sin 60 t + a6 cos 
60 t. The "DV" and "CV" tables in 
the program are used along with the 
entered demands to calculate the 
"a" values. However, if you really 
want to get into it, get a copy of 
the book Rubin referred to. 

It is interesting to note that 
the values of the data are con- 
verted to a sine wave and the 
predictions are a result of 
extending the wave and determining 
the value of the wave at each of 
the points where it crosses the 
"next" period's intersecting line. 

In addition, the shape of the 
wave is modified by the value of 
the error between the forecast for 
a given period and the actual 
demand for that period; self 
correcting. The method used also 
rounds off, smooths, the sharpness 
of the peaks and valleys. All very 
neat. 

In everyday use there are a 
couple of points to remember. No 
formula will predict the demand for 
any given period perfectly. However 
over a period of time, a formula 
that is a good fit will be quite 
accurate; therefore give it four to 
six periods before you start adding 
to or subtracting from the 
forecast. 

Since no formula is perfect 
you must maintain some safety 
stock. How much is "some"? Well, it 
seems logical that it should be a 
function of the greatest error that 
ever occurred in any one period, 
doesn't it? It is also a function 
of your willingness to be out of 
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stock for a while. Will an out of 
stock situation cause a great 
expense to the company or just a 
need to reshuffle things until the 
new supply arrives, or can you get 
a quick short shipment from the 
supplier? 



How many periods worth of the 
forecast should be ordered at a 
time? The normal answer is one lead 
time worth. If it takes two periods 
to get the stuff, order two periods 
worth at a time. But if the period 
is short, the cost of ordering has 
to be taken into account. Oh my, it 
does get interesting doesn't it. 



If there is enough interest, I 
expect we could get Younger and 
Sandra, Mr. Teach it and maybe even 
Mr. Figuarit would talk to the math 
club; all together they might do a 
good job for us. If you would like 
to see more along this line, or 
make any comment, please write to 
my new permanent address below. 



Anyway, the point is, this is 
the method that is used by the 
"main frames" today. When Brown did 
it, he used an IBM 4101. It took 
about 3 minutes per part; using 
punch cards and magnetic tape. The 
CoCo in the fast mode requires 
about 20 seconds, and a modern main 
frame requires slightly more than 1 
second; if the data is on hard 
disk. 



The first program, "NEW-PT~N", 
New Part Number, is used to input 
and save 35 periods of history, 
demand. Note that the formula is 
designed to use 36 periods. The 
36th is entered with the second 
program. 



Brown also shows a calculation 
for 24 periods of history; again if 
there is interest write me. 
However, if the demand isn't to 
volatile and the part isn't too 
expensive, you can use 24 periods 
with this 36 period model. The 
program will allow you to enter any 
number of periods and it will 
repeat it in the proper sequence to 
fill the 36 periods. But remember, 
GIGO. 

The second program is the one 
that will be used the most; 
"EXP-FC", Exponential Smoothing of 
a Forecasting Formula. The first 
program sets up the data the first 
time, but this second program is 
used every time the forecast is to 
updated. This program recalls the 
demand history saved with 
"NEW-PT-N-, adds the newest demand, 
calculates the forecast, allows the 
printing of a hard copy, deletes 
the the oldest demand and rcsaves 
the updated history list to disk. 

Both programs have step by 
step instructions included and tell 
the user what is happening during 
While debuging the 
had a lot more 
working then is 
the user informed, 
many of them, but 



the wait times, 
program S&tidra 
screen prints 
needed to keep 
She has defeated 



not deleted them; by using "'" and 
"***" to mark the place. Most are 
between lines 2000 and 3000. The 
generation of the "G" and "A" 
values are shown there. 

The "H"' values used in the 
line-group 3000 are used in the 
exponent modification. Those used 
are for slow smoothing. Brown shows 
another set to be used for fast 
smoothing. The complete formula 
includes the ability for it to 
sense the magnitude of the error 
and switch the fast and slow 
smoothing in and out, depending on 
the need, determined by the value 
of the error. 

Bob Laskin has improved on 
these numbers, and the general 
accuracy of the formula as well, by 
developing a more complex "CV 
table". 



Since Younger 's printer works 
at 9600 baud, Sandra put in a 
POKE150, 1 in line 4260. Change or 
delete it if your printer works at 
a different rate. She has removed 
the Hi -Speed Poke, but you can put 
it in if your machine can handle 
it. 

What else? This program set is 
a good spine, but it would be 
better if the slow-fast smoothing 
was included, and in addition, it 



We have whal your 
Coco Max is starving 
lor MMS 




PiTi DbU is a set of 440 
PM0DE4 PICTURES ON 10 FLIPPY 
DISKS. EACH DISK COHTAINS HOLIDAY 
AMD SEASONAL PICTURES THAT CAM 
BE LOADED INTO COCO MAX OR YOUR 
FAVORITE ORAPHICS EDITOR. OREAT 
FOR AIDING IN THE CREATION OF 
NEWSLETTERS. BROCHURES/ ADS, OR 
DEMONSTRATIONS. 

ART DELI CAN BE PURCHASED BY 
THE DISK OR FULL SET. THE FOLLOWIHO 
DISKS ARE AVAILABLE : 
1) HALL0WEEN/THAHKS0IYIN6 
£) CHRISTMAS 12-2 
3) TRA\^L/CRITTERS 
-t5 SK«RTS.'FUNNY SPORTS 
£) SUMMER/SPRING 
€.> PEOPLE Ita 



7} FOOP/MISC. 
S5 WINTER/NEUI YEARS 
9) EASTER/YALENTINE 
10> PATRIOTIC^CREATIVE ART 
FOR COCO l.£. I J 



DISK 



SET« 



i 



**A SMORGASBORD 
OF IMAGES- 
RAINBOW lO/e? 

£337 [^ ID 



«SET COMES 
W/PIX BOOK 




4810 mcCrory Ave? 

memphis> Til 38122 
901-682-8737 



ADD J3.00 FOR SHIPPING AND HANDLING. 

CASH/ CHECK/ OR MONEY ORDERS ONLY ! 

PLEASE, NO CODS OR CREDIT CARDS. 



should have safety stock quantity 
calculated and a total order 
quantity based on the forecast, 
safety stock and the part's lead 
time. 



Also, a given 
able to be deleted 
given period values 
to be changed, and 
dozen more tricks. 



part should be 

from the file, 

should be able 

I guess half 



Such a list gives one insight 
into why a professional inventory 
program consists of a hundred or so 
little programs to do all of these 
things. Must be quite a thing 
standing at the I/O gate with the 
programs playing in and the data 
flying out. 

In the mean time, address your 
comments to CoCo Clipboard Magazine 
or RD*»1, Box375 Wyoming, DE 
19934. 



'*** "EXP-FC", EXPONENTAL 
SMOOTHING IN FORECASTING. 
CHATHAM HOUSE SOFTWARE 
BY JIM DE5TAFEN0 
RDIJI, BOX375 
WYOMING, DE 10934 *** 
10 TROFFiCLS: CLEAR 1000 
20 DIM DV(36.6), CV(6,6), DA(54) 
, FC(42), A$(12), B$(25):R=-2 
30 '*** FS$="FC-DATA" 

99 ' 4c4:4c 

100 '*** DV *** 
110 '*** 

120 PRINT-LOADING DV VALUES "; 
130 FOR X=l TO 36:DV(X, 1)=1:DV(X 
,2)=X:NEXTX 

140 A$(1) = '*0.500":A$(2)="0.866": 
A$(3)="1.000":A$(4)="0.866-:A$(5 
) ="0.500" :A$( 6) ="0.000" :A$(7 )="- 
0.600":A$(8) = "-0.866":A$(9)=:"-1 
000":A$(10)="-0.866":A$(ll) = "-.0* 
500" : A$( 12 ) ="-0. 000" 
150 FOR X=l TO 3: FOR Y=l TO 12:C 

=C-fl:DV(C,3)=VAL(A$(Y)):NEXTY:NE 
XTX:C=0 

160 A$(1)="0.866":A$(2)="0.500"- 

A$(3)="0.000":A$(4)="-0.500":A$( 

5)="-0.866":A$(6)="-1.000":A$(7) 

="-0.866":A$(8)="-0.600":A$(9)=" 

-0.000":A$(10)="0.500":A$(11)="0 

.866":A$(12)="1.000" 

170 FOR X=l TO 3 .FOR Y=l TO 12 'C 

vSv^i^i^^''*^=^'^^'^^<Y)):NEXTY:NE 
aTa:C=0 

180 A$(1)="0.866":A$(2)="0.866-: 

A$(3)="0.000":A$(4)="-0.866":A$( 

5)="-0.866":A$(6)="-0.000-:A$(7) 

="0.866":A$(8)="0.866":A$(9)="0 

000":A$(10)="-0.866":A$(ll)="-0 

866":A$(1.2)="-0.000" 

190 FOR X=l TO 3: FOR Y=l TO 12 :C 

=C+1:DV(C,5)=VAL(A$(Y)):NEXTY:NE 
XTX:C=0 

200 A$(1)="0.5":A$(2)="-0.5":A$( 

3)="-1.0":A$(4)="-0.6":A$(5)="0. 

5":A$(6)="1.0":A$(7)="0.5":A$<8) 

="-0.6":A$(9)="-1.0":A$(10)="-0. 

5":A$(11)="0.5":A$(12)="1.0" 

210 FOR X=l TO 3: FOR Y=l TO 12 :C 

=C-i-l:DV(C,6)=VAL(A$(Y)):NEXTY:NE 
XTX:C=0 

299 ' ***■ 

300 'Jtc** CV DATA *** 
310 '*** 

320 PRINT: PRINT"LOADING CV VALUE 
S ": 



34 



330 CV(l,l)=0.124341:CV(2,l)=-0. 

005220:CV(3. 1)=-0.019480:CV(4, 1) 

=0. 005220 : CV( 5 , 1 ) =-0. 008041 : CV( 6 

.1)=0.005220:CV(1,2)=-0.005220:C 

V(2.2)=0.000282:CV(3,2)=0.001053 

: CV( 4 , 2 ) =-0. 000282 : CV( 5 . 2 ) =0. 000 

489 :CV( 6. 2) =-0.000282 

340 CV(1,3)=-0.019480:CV(2,3)=0. 

001053:CV(3,3)=0.059485:CV(4,3)= 

-0.001053:CV(5,3)=0.001O24:CV(6, 

3 )=-0. 001053 :CV(1, 4) =0. 005220 :CV 

(2.4)=-0.000282:CV(3,4)=-0.00105 

3:CV(4.4)=0.055838:CV(5,4)=-0.00 

0489 :CV( 6, 4) =0.000282 

350 CV(1,5)=-0.009041:CV(2,5)=0. 

000489:CV(3.5)=0.001824:CV(4.5)= 

-0. 000489 : CV( 5 , 3 ) =0. 056402 : CV( 6 , 

5 ) =-0. 000489 :CV(1, 6 )=0. 005220 :CV 

(2,6)=H3.000282:CV(3.6)=-0.00106 

3:CV(4,6)=0.000282:CV(5,6)=-0.00 

0489:CV(6,6)=0. 055838 

360 FS$="FC-DATA/DAT" 

399 '«*4( 

400 '*** SEARCH FOR. AND BRING I 
N PROPER P/N'S "DA" AND "FC" HIS 
TORY FROM DISK *** 

410 '*** 

420 PRINTrPRINT: INPUT" ENTER P/N 

TO BE UP-DATED: ";DP(1) 
430 OPEN "D", HI, FS$. 125 
440 FIELD »1, 5AS A$, 5AS B$. 5 A 
S C$, 5AS D$, 5AS E$, 5AS F$, 5A 
S G$. 5AS H$, 5AS 1$. 5AS J$. 5A 
S K$, 5AS L$, 5AS M$, 5AS N$, 5A 
S 0$, 5AS P$, 5AS Q$, 5AS R$, 5A 
S S$. 5AS T$. 5AS U$, 5AS V$, 5A 
S W$, 5 AS X$, 5 AS Y$ 
450 R=R+3 
460 IFR+2>L0F(1)THENPRINT: PRINT" 

P/N HISTORY IS NOT ON THIS", " D 
ISK; SEARCH FOR ANOTHER P/N? ( 
Y/N ) " ; : CL0SE»1 : EXEC44539 : I$=INK 
EY$: IFI$<>"N"THENR=-2:GOTO420 EL 
SE END 

470 GET #1, R:IFCVN(A$)<>DP(1)TH 
EN450 ELSE DP(2)=CVN(B$) :DP(3)=C 
VN(C$):DP(4)=CVN(D$):CLS:PRINT:P 
RINT" UP-DATING; P/N - ";DP(1)," 

CLASS - ";DP(2), " 
DATE LAST UPDATE - ";DP(3) 
480 DA(1)=CVN(E$) :FC(1)=CVN(F$): 
DA(2)=CVN(G$):FC(2)=CVN(H$):DA(3 
)=CVN(I$):FC(3)=CVN(J$):DA(4)=CV 
N(K$):FC(4)=CVN(L$):DA(5)=CVN(M$ 
):FC(5)=CVN(N$):DA(6)=CVN(0$):FC 
(6)=CVN(P$):DA(7)=CVN(Q$):FC(7)= 
CVN(R$):DA(8)=CVN(S$) 
490 FC(8)=CVN(T$) :DA(9)=CVN(U$) : 
FC(9)=CVN(V$) :DA( 10)=CVN(W$) :FC( 
10)=CVN(X$):DA(11)=CVN(Y$):R=R+1 
:GET «1, R 
500 ' *** 



510 FC(11)=CVN(A$):DA(12)=CVN(B$ 

):FC(12)=CVN(C$):DA(13)=CVN(D$): 

FC(13)=CVN(E$):DA(14)=CVN(F$):FC 

(14)=CVN(G$):DA(15)=CVN<H$):FC(1 

5)=CVN(I$):DA(16)=CVN(J$):FC(16) 

=CVN(K$):DA(17)=CVN(L$):FC(17)=C 

VN(M$):DA(18)=CVN(N$):FC(18)=CVN 

(0$) 

520 DA(19)=CVN(P$):FC(19)=CVN(Q$ 

) : DA( 20) =CVN( R$) : FC( 20) =CVN ( S$) : 

DA(21)=CVN(TS) :FC(21)=CVN(U$):DA 

(22)=CVN(V$) :FC(22)=CVN(W$) :DA(2 

3)=CVN(X$):FC(23)=CVN(Y$):R=R+1: 

GET »1,R 

530 '*** 

540 DA(24)=CVN(A$):FC(24)=CVN(B$ 

):DA(25)=CVN(C$):FC{25)=CVN(D$): 

DA(26)=CVN(E$) :FC(26)=CVN(F$) :DA 

(27)=CVN(G$):FC(27)=CVN(H$):DA(2 

8)=CVN(I$):FC(28)=CVN(J$):DA(29) 

=CVN(K$):FC(29)=CVN(L$):DA(30)=C 

VN(M$):FC(30)=CVN(N$):DA(31)=CVN 

(0$) 

550 FC(31)=CVN(P$):DA(32)=CVN(Q$ 

):FC(32)=CVN(R$):DA(33)=CVN(S$): 

FC(34)=CVN(T$) :DA(34)=CVN(U$) :FC 

(34)=CVN(V$):DA(35)=CVN(W$):FC(3 

5)=CVN(X$):FC(36)=CVN(Y$):CLOSEI* 

1 

599 **** 

600 '*** UPDATE ACTUAL DEMAND ** 

610 '*»* 

620 PRINTrPRINT" DEMAND HISTORY; 

PERIOD:", : FOR X=33 TO 35:PRINTU 
SING"I««I";X; :PRINT" = "; :PRINTUSING 
"**«*»«»tt " ; DA( X) ; : PRINT" " ; : NEXT 
630 PRINT: PRINT" NEWEST DEMAND U 
P-DATE. (NOTE: ONLY ON 

E PERIOD CAN BE DONE AT A TIM 
E; OLDEST ";CHR$(34) ; "NEW" ;CHR$( 
34);" PERIOD 1ST. ) " :PRINT: INP 
UT" ENTER NEWEST DEMAND" ;DA( 36) 
640 PRINT: INPUT" ENTER DATE DEMA 
ND OCCURED. (MM.YY, NUMERI 
C AND PERIOD ONLY) ";DP(3) 
1990 '*** 

2000 '*** BEGIN FC PROG. CALCULA 
TE "G" VALUES *** 
2010 **** 

2020 FOR X=l TO 6:A(X)=0:G(X)=0: 
NEXTX:'*** CLEAR "A" &"G" VALUES 

*** 

2030 '*** PRINT:PRINT"DV, G(l) = 

2040 CLS: PRINT: PRINT" CALCULATIN 
G FORECAST:"," G VALUES "; 
2050 A=1:F0R X=l TO 36:G(1)=DV(X 
,A)*DA(X)+G(1):NEXTX:'*** PRINTU 
SING"tf»llliailll. ll*»li«WUIIt*";G(l) 
2060 '*** PRINT"DV, G(2) = " ; 
2070 A=2:F0R X=l TO 36:G(2)=DV(X 
, A)*DA(X)+G(2) :NEXTX: ' *** PRINTU 



SING"««l»*f|f#t». l»«i*l»4lill*ll";G(2) 
2080 '*** PRINT "DV, G(3) = "; 
2090 A=3:F0R X=l TO 36:G(3)=DV(X 
,A)*DA(X)+G(3):NEXTX:'*** PRINTU 
SING"tfll|»»|»«i>. IIU<ll»tm<r»";G(3) 
2100 '*** PRINT"DV, G(4) = •*; 
2110 A=4:F0R X=l TO 36:G(4)=DV(X 
,A)*DA<X)-i'G(4):NEXTX:'»** PRINTU 
SINa"»tf<»»IH»ll.»ll|ttfltU»«J";G(4) 
2120 '*** PRINT"DV. G(6) = "; 
2130 A=5:F0R X=l TO 36:G(5)=DV(X 
,A)*DA(X)+G(5):NEXTX: '*** PRINTU 
SING"ttlllJ»JH»tf. «a»i»»»«»<f";G(5) 
2140 '*** PRINT"DV. G(6) = "; 
2150 A=6:F0R X=l TO 36:G(6)=DV(X 
,A)*DA(X)+G(6):NEXTX:'*** PRINTU 
SING"U»«I»»UI». |l*liU*|til»|l*';a(6) 
2190 '«»« 
2200 '*** CALCULATE "A" VALUES * 

2210 '*** 

2220 '*** PRINT :PRINT"CV. A(l) = 



2230 PRINT:PRINT" 
2240 A=1:F0R X=l TO 
A)*G(X)4.A(1):NEXTX:' 
NG"t»l»ltl»lltft». It#l»tin{»ll)r" 
2250 '*** PRINT"CV, 
2260 A=2:F0R X=l TO 
A)*G(X)+A(2):NEXTX: 
NG"U*I»I»I*IJ<». »iJlf»ai»tt»" 
2270 '*** PRINT"CV, 
2280 A=3:F0R X=l TO 
A)*G(X)4-A(3):NEXTX: 
NG" tilt lilt tilt tf. It Him nil nil " 
2290 '*** PRINT"CV, 
2300 A=4:F0R X=l TO 
A)*G(X)-»-A(4):NEXTX:' 
NG"lt|l|t|t|llttt. H II II II nil II It " 
2310 '*** PRINT"CV, 
2320 A=5:F0R X=l TO 
A)*G(X)+A(5):NEXTX:' 

NG" It It It II unit. It It nil It It nit" 

2330 •**« PRINT"CV, 
2340 A=6:F0R X=l TO 
A)*G(X)+A(6):NEXTX: ' 

NG"»nnnnnn. nnnnnnnn" 

2350 FC(1)=A(1)*DV(1 
1,2)+A(3)*DV(1,3)+A( 



A VALUES "; 
6:A(1)=CV(X, 
*** PRINTUSI 

;A(i) 

A(2) = "; 

6:A(2)=CV<X, 

*** PRINTUSI 

;A(2) 

A(3) = "; 

6:A(3)=CV(X. 

**« PRINTUSI 

A(3) 
A(4) = "; 
6:A(4)=CV(X, 
*** PRINTUSI 

;A(4) 

A(5) = "; 
6:A(5)=CV(X, 
*** PRINTUSI 

;A(5) 

A(6) = "; 
6:A(6)=CV(X, 
*** PRINTUSI 

;A(6) 

.1)+A(2)*DV( 
4)*DV(1,4)+A 
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0S-9tm SOFTWARE/HARDWARE 



L2 UTILITY PAK - Contains a Level II "prinlorr" function that also shows the 
palhneme being seerched for when "not found" or permission type errors 
occur. Also contains level II software ram disk driver. Other indudod utilities can be 
used on either level i or 11 including UNDELeting to recover files. $39.95 

LI UTILITY PAK • Contains 40 useful utilities that run under both level i and 1! 
OS-9. included are a complete set of "wild card" file handling utilities, a 
disassembler, a disk sector editor, and the MacGen comrruind language oompiior. 
MacGen will allow you to generate many useful command macros in minutes, 
much more useful than procedure files. Macro source is Induded for a macro to 
Implement an archival backup type function. $49.95 

LUL2 COMBINATION PAK both of above together for $75.00 

SDISK - Standard disk driver module roplacemont allows full use of 40 or 00 track 

double sided drives with OS-9 Level 1. Retains lull compatibility with CoCo 35 track 

format and allows accessing all other OS-9 nonCoCo formats. Easy installation. 

$29.95 

SOISK^BOOTFIX • As above plus boot directly from a double sided diskette. 

$35.95 



SDISK3 . Level II version of SOISK driver. Same features as level I (except boolfix 
not required to boot from double sided). $29.95 

JieCinfi^ ^^li-'D^^ • Programs to format and translor files to/from MS-DOS''" 
diskettes on CoCo under OS-9. (Requires eithnr SDISK or SDISK3 to run 
depending on which level of OS-9 you are using) $45.00 

5fu?r« .tln*^ ^V^ ^'^^ °*^*^ CARTRIDGE • Operates faster than similar 
device sold by others. Requires RS Mullipak inleifnce. two units may be used 

$°?69.00 °'**'* ^^'® '■^^•' ' * " ^*^*'* ^ **"'* *°"^"« Included. 

?2 M tSl!!ir«n'f K CoCo OS-9 format; other OS-9 formnts can bo supplied for 
add li^ixu ^'^^'H**' ^" ^?"'' '""*' **" P'*""'^ °^ COO. VISA/MC accepted, 
add $ 1 .50 SAH for software. $5.00 for CCRO. additkmal charge for COO. 

?503')*2iiiTw"' fc^K^-^- C*d«rcre.l SL, Porll.nd. OR 97223 
(503) 244^152 (For best service call between 9-t t AM Padfic Time) 



OS 9 to • IradwMifc o( Mcrowara 



*nd Motarela IrK.. MS-OOS la a u 



iiolMkao«oli.lne. 
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CoCo Clipboard Magazine 



OBTAINING BACK ISSUES 



Back issues o-f CoCo Clipboard 
are available. They can be 
purchased -for •^2. 50 each. There 
is a ifl.OQ postage and handling 
charge -for the -first issue 
ordered and :J:.5(3 for each 
additional magazine that is 
purchased. 

Please send a check or money 
order (U.S. Funds) with your 
order because to keep costs down 
we do not bill or send C.O.D 
orders. 

Orders may be sent tos 
CoCo Clipboard Magazine. 
3742 U.S. 20 Box 3 
Fredonia, N.Y. 14063 



Vol. 1 Issue 1 SepL/OcL 1987 

HDIR 

by Bob van der Poel ! 

"The 9th Power" 

by Randy Krippner 

Pascal Programming 

by Delmar Searles 

"The Assembly Line" 

by Kraig Brockschmidt 

On Line with CompuServe 

by Wayne Day 

CoCo 'N Amateur Radio 

by Mike Dooley . . . . . . .... . . ... . . . . . . 

Is a Hard Disk in Your Future? 

by Jim DeStafciio ..:..;. .V. . ...:..... 

CoCo-izing Your Business 

by Rush T.Caley.. .,.:.. . . ....... 



^i 



MISSED AN ISSUE? 
DON'T FEEL BLUE 
WRITE TO US AND 
WE'LL SEND IT TO YOU 



Vol. 1 Issue 2 nov./Dec 1987 

From The Desk of 

by Ted and Darlene Paul 

The Assembly Line 

by Kraig Brockschmidt 

**The 9th Power" 

by Randy Krippner, 

The Dream Machine 

by Jim DeStafeno 

Pascal Programming 

by Delmar Searles 

On Line with CompuServe 

by Wayne Day 

Product Reviews 

by Clipboard's Review Crew 

CoCo-izing Your Business 

by Rush T. Caley 

CoCo 'N Amateur Radio 

by Mike Dooley 

Basic Help 

by Bill 13ernico 

Thorns in Basic 09 

by Bob van der Pool . . . ... 

Commentary 

by Paul Bornemann 
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DeS'tafeno Coni;. 

(5)*DV(l,5)+A(e)*DV(l,6):'*** PR 
INTrPRINT" FC(1) = •';:PRINTUSI 

2990 '4c«« 
.3000 '*** CALCULATE "A" & "FC" V 

ALUE5 FOR PERIODS 2 TO 37 *** 

3010 '««« 

3020 H1=.03519:H2=.0003256:H3=.0 

02104:H4=. 03508 :H5=. 002851 :H6=:.0 

3499:A=2:B=37:C=.866:D=.5 

3030 PRINT: PRINT" FOR 36 HISTO 

RY PERIODS "; 

3040 FOR X=A TO B 

3060 R1=:DA(X-1)-FC(X-1):'*** ERR 

OR CAL. *** 

3060 Al<l)=A(l)-»-A<2) + (Hl*Rl) 

3070 Al(2)=A(2)-»-(H2*Rl) 

3080 Al(3) = (C«A(3))'-(D«A(4}}-i>(H3 

«R1) 

3090 Al(4) = (D*A(3))-t-(C*A(4)) + <H4 

*R1) 

3100 A1(5)=(D*A(5))-(C*A(6)) + (H5 

*R1) 

3110 A1(6)=(C*A(5))+(D*A(6))+(H6 

*R1) 

3120 FC(X)=Al(l)+Al<2)-»-(Al<3)*D) 

+ <Al(4)*C)'KAl<5)*C)-i-(Al(6)*D):' 

***PRINTFC(X) 

3130 FOR Y=l TO 6: A(Y)=A1(Y) :NEX 

TY:NEXTX 

3990 '««« 

4000 '*** CALCULATE "FC" VALUES 

FOR PERIODS 38 TO 42 *** 

4010 '«4(« 

4020 PRINT: PRINT" FOR 5 ADDITI 

ONAL FUTURE**,- PERIODS"; 

4030 FOR X=38 TO 42 

4040 A1(1)-A(1}4^A(2) 

4050 A1(2)=A(2) 

4060 A1(3)=(C*A<3))-(D*A(4)) 

4070 Al(4) = (D*A(3))-f(C*A(4)) 

4080 A1(5)=:(D*A<5))-(C*A(6)) 

4090 Al<6)=(C*A(5))-»-(D*A(6)) 

4100 FC(X)=Al<l)-»-Al(2) + (Al(3)*D) 

4(Al(4)*C)-i-(Al(5)*C)+(Al(6)*D):' 

*** PRINTFC(X) 

4110 FOR Y=l TO 6:A(Y)=A1(Y):NEX 

TY:NEXTX 

4190 '**^ 

4200 '*** SCREEN PRINT 6 PERIODS 
OF FORECAST *** 

4210 '««« 

4220 CLS: PRINT" FORECAST FROM TH 

E LAST ENTERED ACTUAL DEMAND. D 

ATED ";DP(3):PRINT 

4230 FOR X=l TO 6: PRINT" PLUS"X 

"PERIOD(S) = ";:PRINTUSING" ll«*l»l» 

»», l»l»";FC(X+36) :NEXTX 

4290 '««« 

4300 '*** PRINT HARD COPY FORECA 

ST ROUTINE *** 

4310 '*** 

4320 PRINT: PRINT" IT IS STRONGLY 
SUGGESTED THAT A HARD COPY OK 
THIS FORECAST BE PRINTED SIN 

CE THE FORECAST CAN NOT BE MAD 

E AGAIN WITHOUT RE-ENTERING TH 

E 36 PERIODS OF DATA. " ; :EXEC44 

539 

4330 IFPT=lTIiEN4370 ELSE CLS:PUI 

NT: PRINT" PRINT HARD COPY OF FOR 

ECAST?"," (Y/N) ";:EXEC44539:K$= 

INKEY$: IFK$="N"THEN5020 

4340 PRINT: PRINT: PRINT" WHEN PRI 

NTER IS READY PRESS"," <ENTER>"; 

4350 K$=INKEY$:IFK$=""THEN4350 

4360 POKE150,1:PRINT»-2,"FORECAS 

T; PERIOD 1 IS FOR THE 1ST PERIO 

D AFTER THE DATE SHOWN BELOW. ": A 

$=STRING$( 12. 32) :PRINTI»-2, "PERIO 



D: 1";A$;"2";A$;"3";A$;"4";A$;" 
5 " ; A$ ; "6 " ; CHR$( 13 ) ; STRINGS ( 80. 45 
);CHR$(13):PT=1 

4370 PRINTI»-2.DP(1);"= P/N. ";D 
P(2);"= CLASS. ";DP(3);"= DATE 
OF NEWEST DEMAND ENTERED" 
4380 FOR X=l TO 6:PRINTI»~2. USING 
*»«tl*l»ti|fl»«. lt»";FC(X-f36) ; :NEXTX: 
PRINTU-2, "":PRINTIt-2, **" 
4990 '4(«« 

5000 '*** DELETE OLDEST PERIOD D 
EMAND AND FORECAST. AND ADD NEWE 
ST PERIOD DEMAND AND FORECAST ** 
* 

5010 '««« 

5020 PRINT: PRINT: PRINT" RE-ALINI 

NG DEMAND AND 'FORECAST DATA AND 

SAVING THE RESULT TO DISK. " 
5030 OPEN "D". Ul, FS$, 125:R=R- 
2:'*** SAVE DA AND FC TO DISK ** 

5040 FIELD »i, 5AS A$. 5AS D$, 5 
AS C$. 5AS D$. 5AS E$. 5AS F$, 5 
AS G$, 5AS U$, 6AS 1$. 5AS J$. 5 
AS K$. 5AS L$. 5AS M$, 5AS N$, 5 
AS 0$. 5AS P$. 5AS Q$. 5AS R$. 5 
AS S$. 5AS T$. 6AS U$. 6AS V$. 5 
AS W$, 5 AS X$. 6 AS Y$ 
5050 LSETA$=MKN$(DP(1)):LSETB$=M 
KN$(DP(2) ) :LSETC$=MKN$(DP(3) ) :LS 
ETD$=MKN$(DP(4) ) :LSETE$=MKN$(DA( 
2 ) ) : LSETF$=MKN$( FC( 2 ) ) : LSETG$=MK 
N$ ( DA ( 3 ) ) : LSETH$=MKN$ ( FC ( 3 ) ) : LSE 
TI$=MKN$(DA(4) ) :LSETJ$=MKN$<FC(4 
) ) : LSETK$=MKN$( DA( 5 ) ) 
5060 LSETL$=MKN$(FC(5)):LSETM$=M 
KN$(DA(6)):LSETN$=MKN$(FC(6)):LS 
ET0$=MKN$(DA<7) ) :LSETP$=MKN$(FC( 
7 ) ) : LSETQ$=MKN$( DA( 8 ) ) : LSETR$=MK 
N$(FC(8)):LSETS$=MKN$(DA(9)):LSE 
TT$=MKN$(FC(9)):LSETUS=MKN$(DA(1 
0) ) :LSETV$=MKN$(FC( 10) ) 
5070 LSETW$=MKN$(DA( 11)): LSETX$= 
MKN$(FC( 11) ) :LSETY$=MKN$(DA( 12) ) 
:PUT in. R 
5080 **** 

5090 LSETA$=MKN$ ( FC ( 1 2 ) ) : LSETB$= 
MKN$(DA( 13) ) :LSETC$=MKN$(FC< 13) ) 
:LSETD$=MKN$(DA( 14) ) : LSETE$=MKN$ 
(FC(14)):LSETF$=MKN$(DA(15)):LSE 
TG$=MKN$(FC( 15) ) :LSETH$=MKN$(DA( 
16 ) ) : LSETI$=MKN$( FC( 16 ) ) : LSETJ$= 
MKN$(DA( 17) ) :LSETK$=MKN$(FC( 17) ) 
5100 LSETL$=MKN$(DA( 18) ) :LSETM$= 
MKN$(FC( 18) ) :LSETN$=MKN$(DA( 19) ) 
: LSET0$=MKN$( FC( 19 ) ) : LSETP$=MKN$ 
(DA( 20) ) : LSETQ$=MKN$( FC( 20) ) : LSE 
TR$=MKN$( DA( 21)): LGETSS=MKN$( FC( 
21) ) :LSETT$=MKN$(DA(22) ) :LSETU$= 
MKN$ ( FC( 22 ) ) : LSETV$=MKN$( DA( 23 ) ) 
5110 LSETW$=MKN$(FC(23)):LSETX$= 
MKN$(DA(24)):LSETY$=MKN$(FC(24)) 
:R=R+l:PUT HI. R 
5120 '*** 

5130 LGETA$=MKN$(DA(25) ) :LSETB$= 
MKN$<FC(25)):LSETC$=MKN$(DA(26)) 
:LSETD$=MKN$(FC{26) ) : LSETE$=MKN$ 
( DA ( 27 ) ) : LSETF$=MKN$ ( FC ( 2 7 ) ) : LSE 
TG$=MKN$( DA( 28 ) ) : LSETH$=MKN$( FC( 
28) ) :LSETI$=MKN$(DA(29) ) :LSETJ$= 
MKN$(FC( 29 ) ) : LSETKS=MKN$(DA( 30) ) 
5140 LSETL$=MKN$<FC(30)):LSETM$= 
MKN$(DA(31)):LSETN$=MKN$(FC(31)) 
: LSET0$=MKN$( DA( 32 ) ) : LSETP$=MKN$ 
(FC(32)):LSETQ$=MKN$(DA(33)):LSE 
TR$=MKN$(FC(33) ) :LSETS$=MKN$(DA( 
34) ) :LSETT$=MKN$(FC(34) ) :LSETU$= 
MKN$(DA(35) ) :LSETV$=MKN$(FC(35) ) 
5150 LSETW$=MKN$(DA(36)):LSETX$= 
MKN$(FC(36)):LSETY$=MKN$(FC(37)) 
:R=R+1:PUT Ul. R: CL0SEUl:R=-2 
5 190 ' 4(^^ 

5200 '*** CONTINUE W/ ANOTHER P/N 
FORECAST *** 



5210 '*** 

6220 PRINT: PRINT" FORECAST ANOTH 
ER PART? (Y/N) " ; :EXEC44539: I$=I 
NKEY$:IFI$<>"N" THEN CLS:GOTO420 

ELSE END 
5990 STOP 
6000 SAVE-EXP-FC 

'*** "NEW-PT-N", NEW PART NUM 
BER, BY: 
CHATHAM HOUSE SOFTWARE. 

JIM DESTAFENO 

RDHl. BOX376 

WYOMING. DE 19934 »** 
10 TROFF:CLS:CLEAR1000 
20 DIM DA(35), FC(36), B$(36):C= 
36 

30 FS$="FC-DATA" 
99 ' *** 

300 '*** INPUT NEW P/N DATA *** 
310 '*** 

320 PRINT: INPUT" NEW P/N. (NUMER 
IC ONLY) ";DP(1) 

330 PRINT. . - CLASS. (NUMERIC 
NLY) ? ";:EXEC44539:K$=I 
NKEY$:PRINTK$:IF CVN(MKN$(VAL(K$ 
)))=0 THEN330 ELSE DP(2)=VAL(K$) 
340 PRINT:PRINT" <« ALL CORREC 
T ? (Y/N) >»";:EXEC44639:K$=INK 
EY$:PRINTK$: IFK$="N"THEN300 

999 ' *** 

1000 '*** INPUT DATA FOR NEW P/N 

1010 '*** 

1020 CLS: PRINT. ..."DEMAND DATA I 
NPUT INSTRUCTIONS:"..." 36 PERI 
ODS OF DATA ARE PREFER RED. IF 
LESS THAN 36 ARE INPUT ED THE P 
ROGRAM WILL GENERATE THE MISS 
ING PERIODS BY REPEAT ING WHAT 
HAS BEEN PUT IN. ANY LESS THE 
N 24 PERIODS WILL REN". 



1987 COCO FEDERAL TAX 



TAX PREPARATION SOFTWARE 



6^iK CoCo 1.2or3 w/I disk drive 



Form 1040 


Workshcetii: 


Schedule A 


Stnte/Locnl Tnx 


Schedule B 


Pension/Annul ty 


Schedule C 


Social Security 


Schedule 


IRA 


Schedule E 


Dependents 


Sclicdule SE 


Earned income Cr 


Form 24AI 


Excess SocSoc 


Form /i362 




Form 8615 





Menu driven, londs & saves to disk, 
prints to screen or forms acceptable 
to IRS. ensy to use format follows 
IRS forms, comes with 10O4- page 
owner's manual, built In calculator, 
checks for common errors and 
omissions, complete directory system 
for easy edltlnn, dink directory 
function, release date 1/31/88 

$A9.95 

PURITAS SPRINGS SOFTWARE 

Amcritrust Building 

171A0 Lornln Avenue 

Cleveland, Ohio 4A111 

(216) 251-8085 

Information on FREE 1986 Demo 
upon request with S.A.S.E. 
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1030 PRINT" DER THE FORECAST UNR 
ELI ABLE. ",,,*• INPUT THE OLDEST 
DATA FIRST, INTO PERIOD 1; THR 
U TO THE NEW EST, INTO PERIOD 3 
5. PERIOD 36 WILL BE ENTERED LA 
TER. ••:EXEC44539:CLS: PRINT, , " (IF 
YOU ARE USING LESS THAN 36 PER 
lODS, DO NOT INPUT THE NE 
1040 PRINT" EST PERIOD NOW.)",, 
•• TO TEMINATE INPUT, PRESS" ;CHR$ 
(34);"Q";CHR${34);". (A ";CHR 
$(34);"0";CHR$(34);" DEMAND CAN 
BE INPUTED • BY PRESSING <ENTER 
>.)",.,,,: EXEC44539 : CLS : PRINT, , " 
ENTER OLDEST DEMAND IN PERIOD:", 

1050 FOR X=l TO 35 

1060 PRINTX;"- ";:LINEINPUT K$ 

1070 IF K$=""THEN K$="0" 

1080 IF K$r"Q" THEN2020 

1090 IF K$="N" THEN X=X-1:GOTO10 

60 

1100 K=VAL(K$):B$(X)=STR$(K) 

1110 PRINT"CORRECT ? (N) 

. . . "; :PRINTUSING"»*»«»J»«IU";VAL(B$ 

(X)) 

1120 NEXTX 

1130 IFX<36THEN2020 

1140 FOR X=l TO 35rDA(X)=VAL(B$( 

X)): NEXTX :aOTO3020 

1999 '*** 

2000 '*** GREAT PSEUDO DEMAND 

HISTORY *** 
2010 '*** 

2020 X=X-1: PRINT: PRINT" (IF YOU 
ARE USING LESS THAN 36 PERIODS, 
YOU SHOULD NOT HAVE ENTERED 
THE NEWEST PERIOD. )" :EXEC44539 
2030 FOR Y=X TO 1 STEP-1 
2040 C=C-1:IF C=0 THEN3020 
2050 DA(C)=VAL(B$(Y)) 
2060 NEXT:GOTO2030 

2999 '*** 

3000 '*** LAST CHANCE CHECK OF 

DATA VALUES *** 
3010 '*** 
3020 X=35: CLS: PRINT" LAST CHANCE 

DATA CHECK:",- P/N - ";DP(1):P 
RINT" CLASS - ";DP<2) 
3040 FOR Y=l TO 2 
3050 **** IFX=15THEN:GOSUB4100:C 
LS:PRINTELSEIFX<1THENGOSUB4100:C 
LS: PRINT: PRINT" LOADING DEMAND D 
ATA ON DISK. ":GOTO5010 
3060 PRINTUSING"<»I*";X; :PRINT" = "; 
:PRINTUSING"ll»ttttlt»»";DA(X); :PRIN 
T" , " ; : X=X-1 : IFX=14THEN :GOSUB3080 
:CLS:PRINTELSEIFX<1THENGOSUB3080 
: CLS: PRINT: PRINT" LOADING DEMAND 

DATA ON DISK. ":GOTO5020ELSENEXT 
Y 

3070 PRINTUSING"UI*";X; :PRINT" = "; 
:PRINTUSING"«JI»»»«|J|»";DA(X), :X=X- 
1 : GOTO3040 

3080 PRINT: PRINT" <<< ALL CORRE 
CT 7 (Y/N) >>>";:EXEC44539:K$=IN 
KEY$: IFK$<>"N"THENR15TURNELSERUN 

4999 '*** 

5000 '*** LOAD DATA TO DISK *** 
5010 '*** 

5020 OPEN "D", «1, FS$, 125 
5030 IFI$="T"THENR=1ELSER=L0F( 1 ) 
+ 1 

5040 FIELD «1, 5AS A$, 5AS B$, 5 
AS C$, 5 AS D$, 5 AS E$, 5AS F$, 5 
AS G$, 5AS H$, 5AS 1$. 5AS J.$. 5 
AS K$, 5AS L$, 5AS M$, 5AS N$, 5 
AS 0$, 5AS P$, 5AS Q$. 5AS R$, 5 
AS S$, 5AS T$, 5AS U$. 5AS V$, 5 
AS W$, 6 AS X$, 5AS Y$ 
5050 LSETA$=MKN$(DP(1)):LSETD$=M 
KN$(DP(2) ) :LSETC$=MKN$(DP(3) ) :LS 
ETD$=MKN$ ( DP ( 4 ) ) : LSETES=MKN$ ( DA ( 
1 ) ) :LSETF$=MKN$(FC( 1) ) :LSETG$=MK 



N$(DA(2)):LSETH$=MKN$(FC(2)):LSE 

TI$=MKN$(DA(3)):L5ETJ$=MKN$(FC(3 

) ) :LSETK$=MKN$(DA(4)) 

5060 LSETL$=MKN$(FC(4)):LSETM$=M 

KN$ ( DA( 6 ) ) : LSETN$=MKN$( FC( 5 ) ) : LS 

ET0$=MKN$(DA(6)):LSETP$=MKN$(FC( 

6 ) ) : LSETQ$=MKN$( DA( 7 ) ) : LSETR$=MK 

N$(FC(7)):LSETS$=MKN$(DA(8)):LSE 

TT$=MKN$(FC(8)):LSETU$=MKN$(DA(9 

) ) : LSETV$=MKN$( FC( 9 ) ) 

5070 LSETW$=MKN$(DA(10)):LSETX$= 

MKN$(FC(10)):LSETY$=MKN$(DA(11)) 

:PUT «1, R 

5080 ' *** 

5090 LSETA$=MKN$ ( FC ( 1 1 ) ) : LSETB$= 

MKN$(DA(12)) :LSETC$=MKN$(FC(12)) 

:LSETD$=MKN$(DA( 13 ) ) : LSETE$=MKN$ 

( FC( 13 ) ) : LSETF$=MKN$( DA( 14) ) : LSE 

TG$=:MKN$(FC(14)):LSETH$=MKN$(DA( 

15) ) :LSETI$=MKN$(FC( 15) ) :LSETJ$= 

MKN$(DA(16)):LSETK$=MKN$(FC(16)) 

5100 LSETL$=MKN$(DA(17)):LSETM$= 

MKN$(FC( 17) ) :LSETN$=MKN$(DA( 18) ) 

: LSETO$=MKN$ ( FC( 18 ) ) : LSETP$=MKN$ 

( DA(19 ) ) : LSETQ$=MKN$( FC( 19 ) ) : LSE 

TR$=MKN$(DA(20)):LSETS$=MICN$(FC( 

20 ) ) : LSETT$=MKN$ ( DA( 2 1 ) ) : LSETU$= 

MKN $ ( FC ( 2 1 ) ) : LSETV$=MKN $ ( DA ( 2 2 ) ) 

5110 LSETW$=MKN$(FC(22)):LSETX$= 

MKN$( DA( 23 ) ) : LSETY$=MKN$( FC( 23 ) ) 

:R=R-i-l:PUT 1*1, R 

5120 '*** 

5130 LSETA$=MKN$(DA(24)):LSETB$= 

MKN$(FC(24)):LSETC$=MKN$(DA(25)) 

:LSETD$=MKN$(FC(25) ) :LSETE$=MKN$ 

( DA( 26 ) ) : LSETF.$=MKN$( FC( 26 ) ) : LSE 

TG$=MKN$ ( DA( 27 ) ) : LSETH$=MKN$( FC( 



HGRX-DUMP S13.95 

The 2ST CoCo III screen dump that 
prints ALL PMODE/HSCREENs to Tandy 
& Epson printers. Menu baud rates 
double-size/reverse, and 16 print 
patterns. Print Just PMODEs on a 
CoCo I or II! 100% ML. disk/tape. 



Sigmadisk 514.95 

Disk utility for all CoCos. Three 
directories, copy, backup, format, 
directory backup & editor, sector 
editor, gran table, 40/80 col. on 
CoCo III, more! 100% ML on disk. 
Supports 1-4 drives. A must! 

Sigmaword S9.95 

A great low-priced word-processor 
for all CoCos. 50*22 screen, full- 
screen edit, disk I/O, 15K buffer 
w/ large file capability, margins, 
justification, 80% ML, disk only. 



Ask about yir ia&ea! 
No shipping cNarges. 
, Send check or aone-i 
order ?ay&?lE "> 
Kraig Brcckschaict. 




SIGMA SOFTWARE 

Kraig Brockschmidt 

14024 152nd Ave. SE 

Renton, ¥A 98056 



27) ) :LSETI$=MKN$(DA(28) ) :LSETJ$= 

MKN$(KC( 2« ) ) : LSETK$=MKN$(DA( 29 ) ) 

b 140 LSETL$=MKN$( FC( 29 ) ) : LSETM$=: 

MKN$(DA(30)):LSETN$=:MKN$(FC(30)) 

: LSETO$=MKN$( DA( 31 ) ) : LSETP$=MKN$ 

( FC ( 3 1 ) ) : T,5ETQ$=MKN$ ( DA( 32 ) ) : LSE 

TR$=MKN$(I''C(32) ) :LSETS$=MKN$(DA( 

33) ) :LSETT$=MKN$(FC(33) ) :LSETU$= 

MKN.t(DA(34)):LSETV$=MKN$(FC(34)) 

bim LSETi'?$=Ml04$(DA(35) ) :LSETX$= 

MKN$(FC(3r.)):LSETY$=MKN$(FC(36)) 

:R=:R+l:PU'r 111, R: CLOSED 1 

5160 '*** 

1)190 '*** 

5200 '*** CONTINUE W/ANOTHER P/N 

FORiiCAST *** 
5210 '*** 
i)220 PRINT: PRINT" INPUT DATA FOR 

ANOTHER TART? (Y/N) ";:EXEC 

44539:K$-INKEY$:IFK$<>"N" THEN C 
L5:GOTO320 ELSE END 
5230 STOP 
(^(A(Af^ f^AVM'MFW-PT-M 



Prcxi. Beveiws 
Con-b. 

The Hi -Res interface looks 
similar to the Tandy Hi -Res inter- 
face except for two labeled 
switches on the top of the box. 
With both switches flipped to the 
"Tandy Standard", the interface 
works the same as Tandy's. Flipped 
to "Other", the interface will work 
with CoCo Max III by Colorware. 

The second part of this package - 
software - consists of a binary 
Hi -Res joystick interface driver, a 
driver deino, a CoCo Max II to CoCo 
3 patch aiid a Max Edit patch. 

The Hi -Res driver program 
requires some expertise in pro- 
gramming in BASIC or Assembly 
language. It will allow you to use 
the Hi=res interface for joystick 
control in your programs. As I am 
not a programmer, I'll have to take 
Color Ventures word on how well 
this program works. The demo pro- 
gram will r^how you how the driver 
works. Mako a backup copy of the 
disk. <LOAD> "DOTS" and list the 
program. Delete line 1129793 and 
118309 before running. The line 
numbers are wrong. Neither are used 
to run the program. 

After patching CoCo Max II, T 
had no problem using the Hi-Res 
interface (in the Tandy Mode) 
except for losing about a half inch 
on the right side of the screen. I 
would recommend that you buy this 
package if you already had CoCo Max 
II and wer not ready to upgrade. 

The last patch will allow you 
to use Max Edit (by Derringer 
Softeware) with an x-pad or plain 
joystick on your CoCo 3. The soft- 
ware programs included with this 
special joystick work only on the 
CoCo 3. 
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6AA6RSON COMPUT6R S€RVIC€S CO. 



8289 BflNN€R ROfiD S.€. • PORT ORCHARD. UUBSHINGTON 98366 • (206) 857-7878 

IMPORTANT MEMO TO: ALL CLIPBOARD READERS 
FROM: Rush T. Caley, OWNER 

Since I pay for this space, I can. for the most part, put 
anythinq here I choose. Now I'd rather put software ads 
here and hope to make some money on the outstanding software 
carried by this company. But I don't always get the response 
from the readers I might like- Since 1S83, I have dedicated 



this company to be a service company for users 
interest in business applications for the CoCo- 
over estimated the number whom I thought might be 
this type of software. However, I plan NO 
opinions or my policies- You've seen my ads, you 



who have an 

I have grossly 

attracted to 

change in my 

can see my 



address and phone here. If you would like a catalog, a list of 
satisfied customers, or just want to chat about some of the 
software we offer. Just let me know- However, I'm through with 
pitching the best practical application software in the market 
in expensive ads and mail campaigns- 



I read in another publication that there's qoing to be a book 
about the CoCo and all the "movers and shakers" in the CoCo 
community. Now, I'd like to tell you about some people that 
will nev^r be mentioned in that book- The programmers, users, 
retailers, writers, and so on. Little "flames'* that flicker 
about in the dark past of CoCo history. And "new" people too- 

A Programmer like Ben Stokes who possibly wrote the first 
combination Database, Spreadsheet, Text processor for any 
microcomputer- A programmer like Wayne Moodie whose imagination 
gave us MISAR — one of the most unusual in-memory database 

B'rograms I've ever seen- He was the first I saw recognize the 
oCo's "96K". Clever application programmers like Tad Pratt and 
Marty Fisher CFORMAKER) ; James Talcott (CALINDEX II); Ed 
Laidlaw (JARB Software). Early creative machine language hacks 
like Jerome Cigna (Teleform;; Dean Rector (Wizard); John 



Erickson 
(Puzzler). 



(Archivist 
(Sorry, van 



and Deputy 
der Poel , you 



'11 



) ec t or ) : 



Darren Croft 



)e in "THE BOOK") 



There were advanced bus 
like Cliff Hardesty and 
accounting and inventory 
disk drives- Hardesty unst 
512K RAM and FIFTEEN dri 
been released by Tandy. If 
Guys like Steve Buckley 
largest CoCo support in th 
software. And there was 
CoCo and CoCo programs and 
was in his book. 



iness users even before 

Bill Brown running 
control — first oh tape 
rapped the CoCo's DOS aiti 
ves (15) before the 64K 
you ask him, he'll te 
who went from his basem 
e Northwest for retail 
Dr. Scott Norman who wr 
KNEW what he was talki 



my time. Guys 
sophisticated 
— and then to 
d was running 
CoCo had even 
11 you how. 
ent to be the 
hardware and 
ote about the 
ng about- I 



I MISS all th 
people like t 
in practical 
Terry Simons 
the LoCo all 
Paul Borneman 
gold had just 
won't fudge 
course, guys 
publ ications 
YOU - readers 



ose people. But I still look in the shadows for 
hat- And I still find them. New Blood - interested 
applications. Guys like Randall Krippner, and 
crop up from time to time and get me excited about 
over again. Enthusiastic new users I've "met" like 
n and Tony Rapson. They get so excited you'd think 

been discovered. Guys like Jim Destafeno who 

on a review just to make brownie points- And of 
like Ted Paul who doesn't care about how many past 

supported the CoCo- He's here NOW- People like 

of this magazine. 



I'm not 
can help you 



going to be in "THE BOOK"- But I'm here to stay. If I 
ou out, let me know. 



SULTRTION . DflTR BRSC MflNRG€M€NT . SMALL BUSINESS ACCOUNTING • ULIORD PRCXCSSING • INSTRUGIGN . DCXUMCNTflTlONS UURin€N . SOFTUJRR6 R€VI€l 



SPECIAL DEAL ON THEGREATESTSOFIWAREDEAL 
500 PROGRAMS ! ON EARTH JUST GOT BETTER! 



GET 50 DISKS OR 50 CASSETTE TAPES FULL OF OVER 
500 PROGRAMS. HERE IS WHAT YOU'LL RECEIVE: 

*Over 250 Utility/Home Application Programs indudtng a 
Word Processor, DataBase, Spreadsheet. Account Man- 
ager, 2 Basic Compilers. Terminal Programs. ROM Copies. 
Mail List. Machine Language Tutorials. Plus Much Morel 

*Over 200 exciting games including Warlords, Star Trek, 
Super Vaders. Solar Conquest. Horse Rac^s. Football. 
Baseball. Frog Jump. Invader. Plus Much More! (Many 
machine language games) 

* Over 30 adventures including The College Adventure. Dun- 
geon Master. Space Lab, Ice World, Ship Wreck, Zigma 
experiment. Plus 32K Graphic Adventures. 

EACH INDIVIDUAL ISSUE SOLD FOR »9~ 
EACH OR M50 FOR ALL 50 ISSUES. WE 
SLASHED THE PRICE TO ONLY 150.~ 



REG- »450 



Xgo^ 



lOO 



• •THIS MONTH ONLY»^ 




Buy this package of 500 programs and 

receive a Iree 6 montt) subscription. 

(A 'SS value) 



«150 



RAINBOW 



THATS RIGHT! THIS MONTH WEVE DROPPED OUR YEARLY 
SUBSCRIPTION RATE AN UNBELIEVABLE »10.- TO ENTICE YOU 
INTO SUBSCRIBING WITH US. GET 12 DISKS OR TAPES A YEAR 
CONTAINING OVER 120 QUALITY PROGRAMS. A SUBSCRIP- 
TION TO T & D SOFTWARE CONSISTS OF 10 READY-TO-LOAO 
PROGRAMS DELIVERED BY FIRST CLASS MAIL EVERY MONTH. 

NO WE ARE NOT TH^ SAME AS THE RAINBOW ON TAPE. IN 
FACT. MANY SUBSCRIBERS HAVE WRITTEN IN AND SAID THAT 
WE ARE MUCH B ETTER THAN BAINgQW Qhj TAPE! 
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TAP6 THIS 
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Pmonal Owcks Wtlcormt 



* 16K-64KCoiorComputer OUR UTEST ISSUE CONTAINED 

* Over 4000 Satisfied Customers 1. Accounts Receivabie 6. FbotRace 
AQacklssuosAvailableFrom 2. WorkMate 7. FlppytheSeai 
*Juiy'82(Ovor500Pro9rams) 3. Calendar 8. Screen Caicutator 
^.•-i*,. 4. Invasion 9. AUeBuiiders 

i^SSSA S. Trip Adventure 10. Super Error 2 

RAINBOW 



eon COCO 1.2 and 3! 
Al Piograms Include OocumenUiion! 



mr -r- -^ 




[MatteiCard 









T & D SUBSCRIPTION SOFTWARE, 2490 MILES STANDISH DR., HOLLAND, Ml 49424(616) 399-9648I 



Nfext month in Codo',ClipbcMir4* i. * 









Bush CaXoy Con1jlnue«i hi« tutorial on 

Wayne Bay returns^ with more on /' 
CompuSarve and a M¥ i^alaase f rok Mika 
Hard* ' ,^ ' -- . ^ . 4 

Dal Saarlas uncorks another prlae 
PASCAl protfram* ' > 

Lots of reviews of . lots of sof tinare , 
including Tandy prodtiots such as % 
Flight Sim tl^ Phantomgraph tit)d ^> 
others. ' / , ^ ,V / ;-^ 

Update on the CoCo Z Basio. Programming 
Contest* ^ ^ 

Letters » programs^ artiolef» ooupons^ 

eto* % \ ' " 'jy 
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